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Koplj: 

Kopij voor het blad dlefit 
bij voorkeur van de leden 
afkomstig te zijn. Deze 
kopij kan op papier of in 
faachlne-leesbare vorm op- 
lestuurd worden aan het 
tedactieadres. De redactie 
beslist, op basis van 
brulkbaarheid, publicatie- 
wa«r4ft en actualiteit of 
en zo ja, wanneer een 
ingezonden artikel ge- 
plaatst wordt. 
Geplaatste artikelen blij- 
ven het geestelijk eigen- 
dom van de auteur en mogen 
nlet zonders dlens toe** 
stemming door derden gepu- 
bliceerd worden. 
Helaas kan de redactie 
noch het bestuur enige 
aansprakeli jk aanvaarden 
voor de toepa8sing(en} vai> 
de geplaatste kopij. 
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Algemeen 



Kedactloneel 

De uP Kenner die nu voor u ligt Is weer 
met de nodige bloed zweet en tftmeft tot 
stand gekomen. Het zweet moet u letterlijk 
zlen, het is tenslotte eind mei vrij warm 
geweest. Het bloed en de tranen zijn fi- 
guurlijk bedoeld. Wat is er namelijk aan 
de hand? Zoals u waarschijalljk wel weet, 
heb ik een baan in 4e 8QSPmx&* Nu zltten 
we op mijn wierk vlak tegen de op levering 
van een project aan waarvoor ik verant- 
woordelijk ben en daar alles nooit zo gaat 
als je eigenlijk hebben wilt betekent 4at 
dan dat er soms tot 's avonds laat dooagBi^ 
wexict moet wordeti en dat er ook wel €&tis 
een weekend nodig is. Verder heb ik een 
gezin en ook die hebben aandacht nodig. 
Kortom, er bleef weer veel te weinig tijd 
over om een uP Kenner samen te stellen. 
Maar het is toch weer gelukt en als de 
drukker ook op tijd zijn werk doet, dan 
ligt de uP Kenner ook nog op tijd bij u in 
de bus* 

Als gevolg van de drukte zag ik geen kans 
ftttn volgeoide afleveiiJUif viua mija sexle 
iptaiien te mfiken. Het bleek itamelijlc: #at 
de routines voor in- en uitvoer minder 
gemakkelijk om te zetten waren naar 6502 
assembler dan de andere routines. De I/O- 
routines zijn namelijk alleen in 'C gepu- 
bliceerd tfeHitjl de overlge Foutines be- 
schikbaar waren in 68000 assembler en dat 
Is toch wat gemakkelijker om te zetten. U 
houdt de volgende af levering dus »Qg 'V«a< 
mij te goed. 

In plaats van get alien is er dit keer een 
extra lange af levering van de serle Compu- 
ters in het blad opgenomen. Deze keer gaat 
het over programmeermodellen en adresseer- 
methoden. Bovendien ben ik bezig het 
zwaartepunt wat te verschuiven naar de 
68000 omdat anders ie serle vsa iNst^iise 
Megens over assembler prograamerlng en de 
serle Computers elkaar teveel gaan over- 
lappen . 

Ook van Frans Raaijmakers ontving Ifc 
leuke bijdrage* Naar aanleidlng vm wL$b. 
publicities stuurde bij mij een brief met 
daarin een zeer interessant probleem over 
de CMP-instructie. Het bleek dat er in de 
literatuur routines bestaan die een on- 
julst gebruik van deze instructte maken. 
t% een eorrespond'entle bebben we toen dlt 
probleem opgelost en naar aanleiding daar- 
van heeft hij een artikeltje geschreven. 

Verder is er nieuws op het gebied van DOS- 
65 Basic en MS-DOS. Van belde nieuwtjes 



treft u aankondigingen aan in dit blad. 
Daar er voor MS-DOS nog geen coBrdinator 
beschikbaar is, heb ik in eerste instantie I 
de verspreiding van software maar op mij ! 
genomen. Dit houdt echter niet in dat ik 
ook maar lets van MS-DOS weet. Ik gebruik 
de aan mij ter beschikking gestelde PC 
alleen als een veredelde typemachine en | 
meer kennis dan het opstarten van de 
tekstvexwBrker en wat tilee-cmeam4m''& h$b \ 
ik ttlit* It 20U bet a'll)£mral' #el will i^n ! 
weten, maar ja ik heb maar een beperkte 
hoeveelheid tijd en 68000~achtige systemen 
spreken me toch meer aan* I 

Ook op het bulletin board (u weet wel mt 
telef oonnummer 053-303902) is het ggn em i 
ander veranderd. Jacques draait nu niet 
meer onder Opus maar onder Quick BBS. Dat 
betekent dat het er allemaal toch wat 
anders uitziet en in grote lijnen ook wat 
gebryJLkers vrlen.de lijker geworden is (vind 
ik). Als u een liibdem heeft, dan wil ik ti 
toch aanraden eens te gaan kijken; het is 
zeker de moeite waard. Het wordt trouwens 
ook drukker op het bulletin board. Het 
kost mij tegenwoordig vrij vee.l moeit,e 
«elf nog eens in te loggen;'fle't#«f tftwife^ 
lijk vaak "In Gesprek". Als hierdoor ook 
het ledental nog wat toeneemt, zou dat 
helemaal erg mooi zijn. 

Dan heb ik natuurlijk nog de overbekende 
vraag aaiye kopij. Het zou prettig zijn, 
als Ifc nog wat meer kopij zou ontvangen. 
Bovendien wil ik graag ook regelmatig wat 
plaatsen over 68000-gebaseerde systemen. 
Echter voor de Amiga en de Atari ben ik 
dan wel volledig van u afhankelijk. Kortom 
als u lets b«bt, stuur het op wa«e€ ik zit 
er om te dpringen. 

In dit blad mist u een uitnodiging voor de 
clubbijeenkomst. Zoals u waarschij lijk wel 
imet, IjB er in juli geen bijeenfelaiSt «aiiiifc 
we er van uit gaan dat dan de meeste leclem 
op vdkantle zijn. 

Tenslotte wens ik u alien, mede namens het 
bestuur van de KIM Gebruikersclub Neder- 
land een zeer genoeglijke vakantie. Ik 
hoop dat ft na de vakantie weer met frisse 
moed aan uw computerhobby gaat beginnen en 
dat we elkaar in het najaar, bij §§n van 
de bijeenkomsten zullen treffen* 

Uw redacteur: 
Gert van Opbroek. 
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DOS-65 Corner 



005-65 BASIC V2.20 SCREENEDITOR V5.5 

Z^ttKr: Bm dm Srulne 

Piles: Scred55.mac 
Basic V2.20 

iit«ir#tnMf : De 6502 Kttiiet 41 %Im. 15 
1 . Introductle 

Scred is een semi-screen-editor voor DOS-65 Basic V2.20, die het mogelijk maakt om 
cleine wijzigingen gemakkelijfc aam £e Itremgem* Bit programma is niet bedoeld om 
iiitg&bselde basicllstings in te voeren. Hiervoor kan men beter ED gebrulken* 

!• Pidiiclpe 

ief prlncipe van scred is om de inputroutine van Basic ($C026) te vervangen door een 
routine die data van het scherm leest. Met de cursortoetsen kan men de plaats van de te 
bewerken data manlpulet^en. Men dient er rekenlng mee te houdeti dat et tot de 
cursorpositle gelezen wordt. Wil men dus een hele regel invoeren, dan moet men de cursor 
vanaf kolom nul tot aan het eind van de regel plaatsen alvorens RETURN te geven. Geeft 
nen b.v. halverwege al een RETURN, dan wordt ook maar een halve regel opgeslagen in het 
basicgeheugen. 



"H LEFT ; Verplaats cursor 1 positie naar links 

~I RIGHT ; Verplaats cursor 1 positie naar rechts 

"K UP ; Verplaats cursor 1 positie omhoog 

~J DOWN J Verplaats cprsox 1 positie omlaag 

CHAl.TNS ; Inrntt <^a iBpatie op de plaats waar de cursor staat 

~G CHAR. DEL ; VejrHdJder een karakter op de cursorplaats 

*Y END LINE ; Zet de cursor aan het einde van de regel 

~T BEG LINE ; Zet de cursor aan het begin van de regel 

~\ HOME ; Zet de cursor in de linker bovenhoek van het scherm 

~N ERA LINE ; Verwljder het regelgedeelte m ^ mumi^mlktie 

*0 CLR SCR ; Veeg het scherm schoon 

''P DUMP SCR ; Druk de data van het beeldscherm op de printer af 

RESTORE ; Forceer invoer vanaf het toetsenbord 

EXIT ; Ga terug naar DOS-65 

"A STORE USR$ ; Bewaar string van kol. 1 tot de cursor in een buffer 

"U,"V USR$: RUN ; Print de string die in het buffer was opgeslagen 

ESC : ERA S€R ; Veeg het scherm schoon vanaf de tmidlge cursorplaats 

ESC H HELP ; Print dit commando-olftfSlcht 

ESC 0 OLD ; Haalt na NEW het oude programma weer terug 

E$C f INIT PRINTER ; Inittallseert de printer met videotexgraphlcs (BC3) 



a. Corrigeren 

In een listing staat: 

10 FOi=lto 10: print i: next 

Met de cursortoetsen gaan we naar de i in FOi. 

Hier geven een *L en een R. Vervolgens gaan we met naar het einde van de regel en 
geven een RETURN. Na een X.IST bli^kt er het volgende te staan: 

10 FORi-lto 10: plfint 1: next 
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Idt^: ecu regel im te Imzeu momt mmn beglnnen in Kol» 1 (bv met ^T) 
Op dezelfde manler kan mti 4eleteti en oversehrijven 

b. Het opslaan van een string (macro) 

let is megelljk om een string van mffieltiiaal 80 kgt^^ers als ttteif<> te MMtfta* Hem tikt 
de string In of gaat met de cursor naar het laatste Isarakter van de string toe (gerekend 
vanaf kolom 1). Men geeft nu een "A en de string Is '^geslagen. 

Voorbeeld: 

LIST 100-200& (& is de mtmtl 

*A 

LIST 100-&00 (& is de cursor) 

*A 

In het eerste geval is de string: LIST 100-200, in het tweede geval LIST 100- 
"U print de string weer op het scherm* 

*V doet hetzelfde, maar geeft er automatisch een RETURN achter, dit kan handig zijn als 
men bv CONT al«" m$3cM^. I^isfl €(|»g«r3.'|g|8B, M Jitder ST0P^«e«E8iM»,do. geeft men een "V <w; 
continueren. ^ 

c. Screendump 

Met *P wordt het scherm afgebeeld op papier door een printer. Wil men graphisch printen 
(basicode 3) dan meet men vooraf eerst nog een ESC P geven om de graphics in de printer 
te zetten. Dit is NIET noodzakelijk als men alleen asciikarakters wil printen. Indien de 
prlnstex niet klaar voor gebruik is zal na ca. 10 seconden de melding "Printer not ready" 
op het scfierm verschijnen. Het is mogelijk om een gedeelte van bet scberm af te drukken* 
Dit is in te stellen met de variabele PAG. (Zie ook &6). 

d. Noodrem 

Indien men met een call&xxxx een routine zelf aanroept, dan ksn met natae de '^Y-routltie 
de 80-kolom check missen. Het resultaat is dat de computer 'hangt', en alleen een 
hinderlijk beepje laat horen ten teken dat er sprake is van een regeloverschrijding. Met 
"Z forceert men invoer van het toetsenbord, zodat men weer gewoon verder kan werken. 
Evenals bij de DOS-65 stop redirect, zal men dit commando bij normale toepassingen nooit 
nodlg hebben. . 

5. toetsenitiibiel 

Desgewenst kan men de toetscodes wijzigen. Karakters als "C, "Z, "S en '"Q zijn verboden. 
jKEYTABLE 



OOOB KEYUP 


equ 


$0B 




CURSOR UP 


OOGA KEYDOWN 


equ 


$0A 


; "J 


CURSOR DOWN 


0009 KEYRIGHT 


equ 


$09 


; "I 


CURSOR RIGHT 


0008 KEYLEFT 


equ 


$08 


; 


CURSOR LEFT 


OOOC KEYINSERT 


equ 


$oc 


; 


CHARACTER INSERT 


0007 KEYDELETE 


equ 


$07 


; 


CHARACTER DELETE 


0019 KEYEOLN 


equ 


$19 


; 


CURSOR TO EOLN 


0014 KEYBOLN 


equ 


$14 




CURSOR TO BOLN 


001 C KEYHOME 


equ 


$1C 


; ^\ 


CURSOR HOME 


OOOE KEYLINERA 


equ 


$0E 


; ''N 


LINE ERASE FROM CURSOR UNTIL EOLN 


GOOF Xlf eiSAl 


equ 


$0F 


; "0 


CLEAR SCREEN AND HOME 


001 A KEYRES 


equ 


$1A 


; 


RESTORE ALWAYS KEYB VECTOR 


0010 KEYPRl 


equ 


$10 




SCREENDUMP 
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0001 KEYMEMO equ 
0015 KEYMACl efu 
00:16 KEyMAC2 equ 
0005 KEYEX equ 

; DECODATIE NA 
007C KEYSCRERA equ 
0048 KEYHELP equ 
0050 KEYIPRI equ 
KEYOLD equ 



$01 
§15 
$16 
$05 

<ESCAPE>$1B 

$7C 

'H' 

'P' 

'0' 



"A MEMORIZE 

"U USER DEFINED STRING 
"V USER DEFINHO STRING 4 
'E EXIT 



CR 



; ERASE SCREEN FROM CURSOR UNTIL EOS 

; HELP SCREEN 

; INITIAWSE PRINTER 

; OLD (BASie COMMAND) 



; Keys can be redefined by the keytable 
; Change also the help routine 



(I • Routines 



Scred kent een aantal subroutines die ook handig kunnen zijn om tijdens een 
basicprogramma aan te roepen met call(6exxxx). Zo is READSCR te gebruiken in de basicode- 
3 subroutine 220 (lees van tekstscherm), en DUMPSCR kan men in een programma aanroepen 
om een screendump te maken zonder dat men hoeft te breken en een *P lAoet ge veil die 
jneestal voor datavervulllng op het schem mtgt* 

INIMOD geeft 'het j^attfiires van <ie Inltlalieatleroatltle voor de printer aan. Hier is dat 
$AO00, dwz dat u : g / r adixb c3 .bl n meet beginnen op $A000. De naam van de 
initialisatiesof tware kan men wijzigen vanaf INILO. Let wel op dat de lengte niet langer 
mag zijn dan aangegeven. 

Indien men een gewone basic zonder SCRED wll hebben, bv om input redirect te versn&llen^ 
ian kan men SOn> uitschi^elen ttet eall 4&41B* 



from basic with CALL(&XXXX) 

jSavelocatlons A,X and Y 



;Read from screen and place in ASMU 
; Initialise printer 
; Screendump on printer 
jA to printer 
;Ft>rced jump 

;Load address prifltet Inlt 
;Statusline off 
;Load A,X,Y 
; Switch scred off 
;Load edltdf 

; Select graphic screen (no funtion at 
;V5.5) 

; Select tatt-fier®©^ (ao function at 
;V5.5) 
:G/RADIXBC3.BIN',0 



Expansion 

Screendump: screen of 24 lines, 
range Il»«25l 
Llnecounter printscreen 
Autobreak Curright > 80 
Saveloeafii^ft K pttintmtm^ 
Save A 
Save X 
Save Y 

Auto cr after *V IO»on, el##^ll 



Mt 40 


tBM 


SCRED 


JMP 


EDIT 






; — jumptable — 








; entries 


can be called 


A403 




ASAVE 


res 


1 


A404 




XSAVE 


res 


1 


M05 




YSAVl 


res 


1 


A406 4C 


17A6 


READSCR 


JMP 


VDUCHA 


A409 4C 


31A9 


INIPR 


JMP 


INICEN 


A40C 4C 


58A8 


DUMPSCR 


JMP 


PRSCR 


A40F 4C 


EBA8 


PRASC 


JMP 


CENTRO 


A412 4C 






FCB 


$4C 


A413 OOAO 


INIMOD 


FDB 


$A0O0 


A415 4C 


4FA8 


STATOFF 


JMP 


STATI 


A418 4C 


B5A4 


ILOAD 


JMP 


LOAD 


A41B 4C 


40A9 


SCOFF 


JMP 


NOED 


A41E 4C 


50A9 


SCON 


JMP 


LOED 


A421 4C 


80A4 


GRAFON 


JMP 


NIX 


A424 4C 


80AA 


fXfON 


JMP 


NIX 


A424 4C4F414429 


INILO 


FCC 


'LOAD U 


A427 553A472F52 






A431 4144495842 








A436 43332E4249 








A43B 4E00 








A43D 00000© 




res 


3,0 


A454 18 




PAG 


res 


1 ,24 


445^ 00 




LINE 


res 


1,0 


Ms© 




ABS 


res 


1,0 


A457 00 




XS 


res 


1,0 


A458 00 




AH0LD2 


res 


1,0 


A459 00 




XH0LD2 


res 


1,0 


A45A 00 




YH0LD2 


res 


1,0 






FLGCR 


res 


1,$FF 
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Voorbeelden: 

Dump de eerste helft van het scherm op de printer als keuze=3: 

10 PRINT" 1 = ultleg" 
20 PRINT" 2 = stoppen" 
30 PRINT" 3 = screendump" 

40 GET 1: IF 1=3 THEN POKE &a45A , ] 2 : call&a40c:poke&a454,2A 
Lees het karakter onder de tiitttor In B$: 
1 00 call&a406 : B$=chr$ (peek&a403) ) 
7. Geheugeiilitdeling 



Scred5.5 
Printerlnl 



$A000-$A3ff 



8» GxAflsch prlnten 



Ha«3t em emttine die de graflsche karakterset In de printef Mt iBoet als mtirmitlne 

gebeuren met startadres op INIMOD. Ken terugkeer van deze routine met C^O is Waecesvol* 

Indien C=l is er lets mis, bv de printer is not ready. (Zie radlxbc3 .mac) " -• 

Errata artlkel De 6502 Kenner 41 SCRED 3.0 



biz. 16 2e regel: Dlt zljn cmmmdo's die betrekking bebbe© op het HELE SCHEBM 
onder B2: Voorlaatste comnando moet zijn: (CWPKL+W) spatfebalk 

Laatste commando (CNTRL+X) , hier ontbreekt: was voorheen '@' 
biz. 17 voor Opmerking: Dient te staan (ESC) spatiebalk en (CNTRL+N) spatiebalk 
biz. 25 regelnr 3910; HOOFDletters worden klelne letters. 



Zelf SCIED toevoegen aan Basic 72.20 

AS SCRED55 • r 

APPEND -A SGRED55.BIN BASIC 

SCSQ} en Baslcode-B 

Van Frank Bens ontviitg Ik een baslcode^3 vertaalprogramma. Aaaslultend hlerop heh ik ESC 

P en "P toegevoegds I^C P Is prlnterafhankelljk, en kan aoAlooji' de y±dltmit<smt.im$»-' 
aangepast worden voor diverse printers. • 

Hieronder een demo van een basicode-3 plot. 



S P E L... E N 
M E T 

L j: S S A J 0 U S 






I N 



A S I C 0 D E - 3 
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IE)I^ ajIF^ I^I^3b^S§ri^I^ • Algemeen 

I =^ ■ " • 

an VEMtAS^ F^ K^^p a^^ Vik life ^O2-gBQC3BS30B 

. I /"l; .UJti ' " . Ill;'; 

Een veel voorkomraade programnastruktuur is deze : vergelijk twee getal^ 
lesn en onderneem aktie al naargelang welk van de twee het grootsts is. 
Qtai getallen te vergelijken heeft de 6502-processor de instruktie CMP in 
buis. Deze instruktie doet A minus M. De inhoud van de geheugenplaats M 
vordt afgetrokken 'ran de accu- inhoud zonder rekening te houden met de 
mrry. De ■mMsm isiiiblidt zijn oorspronkeli jke inhoud; het resultaat wordt 
uitgegeven in vlaggenregister . Maar wie nu denkt dat hij aan de hand 
VMii lijit irlai8BQl3register zcxider meer een "groter dan" , "geli jk aan" of 
"Icleiiieif dtan" faeslissing kan nemen, kcmt bedrogen uit want dat is niet 
altijd het geval. Het verrassende is nu dat de meeste handbodkien hier- 
over cxijuiste of op zijn best caivolledige informatie geven. 

De 6502-processor werkt met een woordbreedte van 8 bits. Als we afzien 
van het gebruik van negatieve getallen, kunnen we in die 8 bits de ge- 
italltti mm d ifyk tSi «M»ri^Kveii. Vo@r dt^sae r««lts -vws o^gpeteksidek seiafl^ 
len geldt dat 0 het kleiiste getal is «a dat ieder voleend getal groier 
is dan het vorige. 

lb een OS^lnstruittie hehbera de vlacssen dte vtiliinie %»t«i|piyLs ; 
Z=l : A=ll, Z=0 : AOM, C=l : A>=M, C=0 : A<M 
De beslissii^roiitine ziet er dan zo uit : 

CMP GETAL2 
BGQ A=M 
BCS MM 
BOC A<lf 
EHD 

Een "groter dan - kleiner dan" beslissing moet genomen worden naar de 
toestand van de C-vletg. Het is cnjuist cni hiervoor de N-vlag te gebi*ui- 
Vem. zoals i«ini«i%odk Ibel 1, paag. 80 gesugsoreert • Ob W^lisg see€t niei 
altijd het juiste resultaat weer. Na bijvoorbeeld LDA #$00 - CMP #$FF, 
is de N-vlag 0 maar Meruit mag niet afgeleid worden dat #$00 groter is 



Set^ vtm. €^ro^ lie«rf t tti zi^ recente artikelenreeks ia dft blad lat«Bi 
zien hoe we met negatieve getallen kunnen werken in het binaire tal- 
stelsel. Negatieve getallen kunnen op verschillende manieren worden 
vwrgesteld wo^mi memt- alle microcoaputers gebruikari dte l-eonplement 
methode. Dat is zo omdat het 2-complement de enige voorstelling van 
negatieve getallen is waarin de gewone regels van het rekenen van 
leepassiiig jv«ra. 

In het 2-coaipl«nent fungeert het meest signifikante bit als tekenbit. 
faii> ^o^tturve #^tallen geldt 1GB=:0 en voor negatieve getallen 1BS=1. 
Nu is niet langer ieder volgend getal groter dan het vorige. Na 7F 
(+127) volgt 80 (-128). Dat is kleiner dan het vorige. Na 80 (128) 
volgt 81 (-127) &n. dat is weer groter dbn het vorige. 

Voor mensen is dit verwarrend omdat wij gewend zijn getallen Euclidisch 
cm te ^tt^. WIJ ifiien een nulpont van waaruit de positieve en de 
negatieve getallen in tegengestelde richtingen vertrekken. Hoe verder 
een getal zich van dat nulpunt af bevindt, hoe groter (positiever) of 
1^ Ws»^m imm^^^^^ is never the twain shall meet. 



9 



■ — > 

In een coi^xiter is dit anders. De manier waarop een computer getekende 
gef alien opslaat, moet je je vo©r«t#ll«ti ails een clrkel. Niet alle^ 
raakt het kleinste positieve getal (0) eian het grootste negatieve getal 
(FF) maar ook raakt het grootste positieve getal (7F) aan het kleinste 
n^^tieve jgAtal (8@|. Hier komt the twain dus wel degelijk bij elkaar. 



Vanzelf sprekend kunnen we ook 2-complefflent getal len vergelijken en ook 
dan noet het vlaggenregister de mogeli jkheid bieden beslissingen te 

nemen. Dit is niet zo eenvoudig als bij ongetekende getallen waar de 
Z-vlag en de C-vlag het resultaat eenduidig en volledige weergeven. 

Uit de regels van de rekenkunde kunnen we afleiden dat het resultaat 
van de vergelijking van twee getekende getallen, weergegeven wordt door 
imEslmii:€(m CSF-funktie van de N-vlag en de V-vlag (voor de puristen : 
de van de carry-in en de carry-out) . 



Hieroee kunnai we de volgende regels opstelloi 

1 Z = 1 A = M 

2 z = © AO' r 

3 NB0KV = 1 A<M 

4 NBC»V = 0 A>=II(A>M) 



Als we s"teeds het geval A=M op voorhand elimineren aan de hand vaoi 
Z-vlag, kan regel 4 vereenvoudigd worden tot N ECU V = 0 — > A > M. 

Eboo. routine die deze regels verwerkt, zou er aldus uit kunnen zien : 





GETALl 


CMP 


GErAL2 


HBQ 


A = M 


Hfl 


TESflV (1) 


BVC 


A > M (2) 


BVS 


A < M (3) 


wm 


A < It (4) 


BVS 


A > it (5) 


END 



TESTV 



Deze routine hoort te werkon vanwege 



REGEL VUmm 1QR-FI]NRTIE RESULTAAT 

1 + 2 N=0 V=0 N BJR V = 0 A > M 

1 * 3 N=0 V=l N BOR V = 1 A < M 

1 + 4 N=l V=0 N BCm V = 1 A < M 

1+5 N=l V=l N BOR V = 0 A > M 



Bat geval A=M is op voorhand al t^linineerd met de BBQ. 



In tal van handboeken wordt deze of een analoog opgezette routine 
gebruikt om getekende getallen te vergelijken. Deze routine zou ook 
korrekt werken WARE HET NIET DAT HE OiP-INSnHUKnE VAN OS 6SQ2- 

mxssaaR im, v-vlag niet BEiNVLoepr . 

Se V-^Ias nag dterhalve niet gebruikt worden om het resultaat te beoor- 
delen. Wat te doen ? Het probleem kan worden opgelost door getekende 
getallen niet te vergelijk^ met een CMP-instruktie maar met behulp van 
4b mMm etftrdkiawbndktie iK>. In tegenstelling tot CMP beinvloedt SBC 
de V-vlag wel. Als we in de bovenbeschreven routine de CMP v«Hrvamg^ 
door een SEC - SBC, wordt altijd de juiste beslissing genomen. 
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Algemeen 



Er kleven twee nadelen aan deze oplossing. CMP laat de oorsprtmkeli jke 
ikccu-inhoud csiaangetast terwijl SBC het resultaat van de af trekking in 
^ «kccu zef ; ^IB* besrtaa^ tenpeiidi«ti ook im maa CPX- en een CPY-versie 
terwijl SBC alleen in de accu uitgevoerd kan worden. Vcxjral het weg- 
vallen van GFY kan hinderlijk zijn omdat deze instruktie niet Y-M doet, 
maAm iMHi^e handboeken benierai, naar M-Y : de registerinhoud wordt 
Aran de geheugeninhoud afgetrokken. In sooHige ||ftv»ll®a kan die eisenr- 
schap onet voordeel gebruik worden. 

We kunnen het proble«n van de V-vlag na een CMP ook omzeilen door e&a 
wat uitgebreidere opzet te kiezen. Na de vergelijking van twee getalleti 
tm^ A^lf^ tillttgnji, geeft de N-vlag altijd het juiste resultaat weer. 
Het probleem doet zich alleen voor bij getallen met ongelijke tokens 
maar die hoeven we ook niet werkelijk te vergelijken want voor getallen 
nit jpltt^Liifce teikens geldt per definitie dat het positieve getal het 
Iprootsfe en het n0flati«ye gotal het kleinste. Dearg* Ima het ook zo : 



TEST 



LDA 


GETALl 


CMP 


GErAL2 


BBQ 


A=M 


Boa 


GETALZ 


BPL 


TEST 


LDA 


GETALl 


BPL 


A>H 


EMI 


A<M 


LDA 


GETALl 


CMP 


GErAL2 


BPL 


A>M 


EHl 


A<M 


mo 





;A=M doet verder niet 
;vonii de WR van MSB GaSTALl en MSB GErAL2 
;als die 0 is, hebben we |plijke t^iens 
;haal GETALl terug in de accu 
^het positieve getal is het grootste 
:aa het jpegatieye h^t lileiiiste 

voor gelijk getekende getallen geldt 
N=0 : A heeft het grootste getal 
N=l : A heeft het kleinste getal 



Deze routine is weliswaar minder elegant dat de tt^^x^ ammr laat •»! 
het sehruik van C3FX en GFf toe. 

Indien de lezer bekend is met een herndboA mmrht 4it &aiBiiXwe0lP' MMbI. 
tniaMkt nordt besdbroven. dan zou ik dat graag harea. 



Frans Baaijmakers 
Hoogvensestraat 87 
5017 CB Tilburg 



Literatuur : 

1 - artikelen reeks van Gert van Opbroek in dit blad 

2 - M.B. Imnerzeel Microconqputers van A tot Z 

3 - L A. IjB*ranthal en V. ^ille 65111 Viiidbiietaal Subroutines 

4 - R. Zaks Programneren van de 6502 

5 - A. Nachtmann en G. Nachbar Juniorcomputer deel 1. 
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Harqmahe 



SET Video FRONT 



Ctoor: Frank Vandekerkhove. 



De CRTC controller 6845 wordt in vele computers gebruikt, alleen wordt hij op de 
i®U**tiHH*^t op een "eenvoudige" wijze gebruikt. Daar ik de VDU-kaart niet wens te 
N/ervangeo- heb ik een kaart gefflaskt die naast de VDU-kaart komt. De voomaamste del en 
zijn een man msjiMplmmr ' tsn WSH'. 

Beide kMrtBrs Mtsmim mnixx^den d.m.v. eefi draadje veef de r»iep«iB chip select naar de 
b845 (IC wordt verwljtierd, dus geen viervdudl^ adre^srifWj mmt\) en een flatcable 
nnet een IC voet connector. Deze flatcable gaat naar de plaats van IC 1*?, de karakt«r^ 
generator, die ook verwijderd wordt en waardoor de data- en adreslijnen naar dS' 
nieuwe print gebracht worden. 

In rust schakelt de multiplexer de adreslijnen van de VDU-kaart door, wordt er 
Bchter gelezen of geschreven naar de kaart, dan krijgen de RftM en de EPROM hun adres 
aangeboden door de poor ten van de PI A (een pseudo adres). 

Na een reset zijn CA2 en CB2 altijd als ingang geset; door de pull-up weerstand en 
de inverter wordt daarom altijd de EPROM geselecteerd. (Bij een power-on bevat de RAM 
nog geen geschikte data.) 

Met het onderstaande programma kan de RAM geladen worden met een willekeurige 
felM|kfe»«it die bewaard wordt op schijf, bv.: "SETVF cgDOS.rom". Ook is het mogelijk 
een karakterset, die op dat nranent gebruikt wordt, op de schijf weg te schrijven. We 
kunnen ook eerst een set laden, elke bit (of enkele bits) wijzigen, en dan bewaren 
met zijn eigen willekeurige naam. Voorts ziin w , nog enkele opties waarmee we de 
huidige set kunnen laten zien (-d) of kunnen omschakelen tussen de karaktersets (-e, 
-r en -t), waarbij twee verschillende karaktersets in RAM bewaard kunnen wordeni, (Bij 
het laden wordt steeds omgeschakeld naar het andere gedeelte.) 

De -n optie zal , na het laden, het tweede gedeelte van een karakterset (van $80 t/m 
*FF) veranderen tot het tegengestelde van het eerste gedeelte waardoor, zoals in de 
DOS-65 karakterset, de inverse karakters ontstaan. 

Natuurlijk is het mogelijk om dit programma op te nemen in de "LCeiN.CQM", waardoor 
taij een start steeds tii ii^im *Narakterset aanwezig is voor bv. ECHbS, VIOIIBL, . . . 
of ga»«xn DOS-65. 



; File: 
; Prog: 
; Functions 
; Usage: 
; Date: 
; By: 



SETVR^lNT.fl»!: 



set video character gen«r*1tor 
SETVF options file 

november/december 1988 

Frank Vandekerkhove 

Sint-Michielsstraat 4 
B-2789 Verrebroek (ANTW) 



0080 
0081 
0083 

■mm 

dG86 

0087 
0088 
0089 
OOSA 



; Zero page locations 

0000 org $80 

optmask res 1 

pointer mm-: 2 
.fxleimr.-mm 

&jm rem X 





cury 


res 


1 




ref X 


res 


1 




refy 


res 


1 




bitcnt 


res 


1 




lincnt 


res 


1 




• D(DS-65 variables & e 


AAOO 


buffer 


equ 


*aa00 


C006 


command 


equ 


*c006 


C020 


in 


equ 


$c020 


CXS3 


out 


equ 


$c023 




^TMiChO 


eep 


$cQ26 


■Oils 


toufin 


^equ: . 






t crif 








spa 


equ 




CX)35 


hnout 


equ 


*ccei 


C03B 


hexout 


equ 


*cd38 


C03B 


print 


equ 


*c03b 


C03E 


aschex 


equ 


*c03e 


C041 


loupch 


mqa 


«C041 



execute convnand 

get a char 

put a char 

get and put char 

Input in buffer 

print <cr> and <lf> 

print a space 

low nibble as a ASCII 

hex as two ASCII 

print string after call 

convert ascii to hex 

convert lower to upper 
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3^ 



Al 



Hardware 



C056 


redrin 


equ 


*c056 


C068 


sopt 


equ 


*c068 


C06B 




equ 


*c06b 


D003 


sread 


equ 


*d003 


DCXDC 


swrite 


equ 


*dOOc 


D039 


create 


equ 


*d039 


D04B 


clc3se 


equ 


*d04b 


D0B7 


ennes 


equ 


*d0b7 


F024 


5 

posit 


equ 


*f024 



E142 



El 44 
E145 
E146 
E147 



Mask for options 



redirect input 
scan options 
scan parameters 
single read 
sigle write 
open/create a file 
close file 
error message 



change bits 

display 
set eprom 

set invers (nepltiiWt*' 

NOT READY 

set 

save char, set 
high/ low RAM 



Data *** 

At this address you can nBad or write into trtu 
FWI/EPROM. The address '^ii tfwV fl^ by^fary* ■■ 
and ports ©f tl^.PIA. ' 
data eqili-'" ^ mi^'" ; " 

#** PIA *** 

Normally the VDU board generates the address 
to read into the RAM/EPROM character generator. 



0080 


bitch 


equ 


y.iooooooo 


0040 


displ 


equ 


"/.OlOOOOOO 


0020 


eprom 


equ 


y.ooiooooo 


0010 


negat 


equ 


•/.oooioooo 


0008 


printer 


equ 


•/.ooooiooo 


0004 


ram 


equ 


7.00000100 


0002 


schars 


equ 


7.00000010 


0001 


toggle 


equ 


7X0000001 



portA equ 

contrA equ 

ports equ 

contrB equ 



yi 



nvacro 
Idy 
Ida 
endffl 



$E144 
*el45 
*el46 
*el47 

arc 

#src:»S 



low address 
if C:A2=1, then EPROM is selected 
tiO, bl, b2 & b3 = high address 
if CB2=1, then high 4K selected 



1000 

1003 

1007 

lOOA 

lOOB 

103B 

1067 

1096 

lOBE 

10D7 

lOFE 

112B 

1155 

117D 

11A9 

RW 

llEO 

IIFB 

1220 

load 

125B 

char 

1294 

12BD 

12D7 

12F1 

help 

1325 

will 



1000 org 

4C C013 Btttvf jmp 

CaC5CCD0 fee 
20 :saDO phelp jsr 

OC fee 

5574696C69 fee 

0D69732070 fee 

0D466F7220 fee 

0D53796E74 fcx 

0D4F707469 fCC 

0D20202020 fee 

0D20202020 fee 

0D20202020 fee 

0D20202020 fee 

0D20202020 fee 

OD20202020 fee 

0D20202020 fee 

0D202O2020 fee 

0D20202020 fee 
file' 

0D20202Q20 

SB't*' 

'<X)20202020 fee 

0D41626272 fee 

0D4578616D fee 

0D49662074 fee 

0D696E666F fee 



*1000 

main 

*c8,*c5,*cc,*dO 
print 

*0c clear screen 

Utility to set the VDU character generator which 
' \ris placed on a new board with RAM facility.' 
'\rFcr more details: De 6502 kenners nr. xx p. xx 
•\r%nta}f: \Ei SETVFFJQNT C-CDEM=ST] file \En' 
'XrOptiorwi without a files* 



none: print this help info' 
-D : print actual character set' 
-E : set EPROM character set' 
-R : set RAM character set' 
-S : save actual character set' 
-T : toggle between two char, sets in 



•\r 
'\r 

'\r 
• \r 
■\r 

■ \r 

■ \r 
'\r 
' \r 

'\r 

•\r -4=* s set also printer front' 

'XrAbbrevlatims \Ei SETVF \Eh' 
'\rExample: SETVF npi.rero' 

'\rlf there is not a tile name, ycju will iiee this 
' \rinfo again. If the filename xyz.rom is found, it 



with a 
-C 
-D 



file name : ' 

: change bit pattern' 

: print actual character 



set and 



-N 



set invers in second part of 
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m)IM,*iIF» IBISES- EST r^i^ 



Hardware 











which 






\ r Im. 1 lar cn, vvr ■ 


lovi uuooocjox/^ 










-fr-f- 








r u=» 






5 




sopt. 


i3C3 4344454E50 




fee 


•CDBSPRST' ,0 


13CC 90 03 




bee • 


M ' 


13CE 20 B7D0 






ermes 


13D1 86 BD 


1 


stx 


□ptmask 


13D3 84 81 






pointer 


13D5 85 82 




sta 


pointer+l 


43SD7 20 ^14 




jsr 


tstpia 



\rbB Imm^ into RflM and then the prografl* mM. ytiu 



back to caller 



^t Giptidrts 



save th6" i^i@n 
save 'file 



address 



test if board 
**# Check options without a filename *** 
Display tt» actual characterset 



is present 



1 THA AS RD 


X 


Ida 


optmask 


get option rnask 






and 


ttdispl 


m^cl/ — orrt" i nn 

11 las IV Ly ^l-f V_ X " 1 






beq 


l.f 




1 ten R71 s 




jsr 


dchar 


disoldv actual char . 






jmp 


tsfile 






■ 

* 


Switch to char, set in EPRDM 




1 tCA AS art 
loco HD cyj 


1 


Ida 




net ontion mask 


XOC.O .^V .ilU 




and 


Hitpf uui 


mask E— ODtion 


1 TCr/\ rjf^ 




beq 






jt.i'iaiaU Hi< loiS' 




jmp 


setepr 






5 


Switch to RAM 




iotr HD tJiJ 


1 


Ida 


optmask 


npat nntion mssk 


XsJI X k^*T 




and 


#ram 


mask R~option 


1 <J- < cn AT 




beq 


l.f 




x«irD 4L ^IXD 




jmp 


setram 


set ram 






Switch between low/high char. 


=pt 1 n 




1 


Ida 


optmask 




1 TCA "TO 01 
XOrH jC7 "JX 




ar^ 


#togg|e 




4 J I f— ' CA AT 






l.f 




.il""'liSi1|L' 'af fStiit R 




Mm 

Save actual 


character set 




X*tUX H3 tJU 




Ida 


optmask 




■4 /I r\~7 oo AO 




and 


#5chars 




1 /IAS CA AT 




beq 


tsfile 


GAVii cHar*. se^ 


* AA-7 An RCTI 




jmp 


svch 




■ 


Test for file name 




■1 /lAA A /I Ql 
XH*JH HM- OX 


tsfile Idy 


pointer 


oet f iltt ODintaHT back 


1 A/V^ AS QO 




Ida 


pointer+l 




1 AAC AO OA 




Idx 


#*80 




1 ZL 1 A OA SAT* A 
XHXU jl\J DOL^V 




ice 


redrin 




1413 90 11 




3.f 


branch if no error 


1415 C:9 12 






#$12 


no filename ? 


1417 DO 09 






■2.f 


branch on other error 


1419 A5 80 




-im 


qptfoask 


no filename, check option 


141B 29 40 




and ' 


#tiiispl 


tmsk D-option 


141D DO 06 




bne 


4.f 


bpm^H an D-qptipn 


141F 4C 0710 




jmp 


phelp 




1422 20 B7D0 


2 


jsr 


enmes 




1425 60 


4 


rts 




save file nyl^W* 


1426 86 83 


3 


stx 


f ilein 


1428 20 2115 




jsr 


setram 


set first r^i* 


1^ 10 2A15 




jsr 


tggl 


and tak« ol^iist part 




■ 


Read file into RAM 




142E A6 83 


rfile I'd* 


f ilein 


get file number back 


1430 20 03D0 




iar 


sread 


read one byte 


1433 BO OD 




l.t 


end ? 


1435 80 42EI 






lidia 


no, store byte in ram 


1438 EE 44E1 




•fee: ' 




increase pseudo address 


143B DO Fl 




bhe 


rfile 




143D EE 46E1 




inc 


ports 


branch always 


1440 DO EC 




bne 


rfile 




5 


Change bit 


pattern 


get option mask 


1442 A5 80 


1 


Ida 


optmask 


1444 29 80 




and 


#bitch 


mask C-option 


1446 m m 




beq 


l.f 
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Hardware 





4C 


6816 






cbits 










©iet til© artti display it 


144B 


A5 


80 


1 


Ida 




144D 


29 


10 






TTi icrua ^ 


144F 


FO 


32 






1 . f 


1451 


A9 


00 




Ida 


#$00 


1453 


8D 


44ei 




sta 


portA 


1456 


8D 


46E1 




sta 


ports 


1459 


AD 


46E1 


2 


Ida 




145C 


29 


07 






ttVOOOOOl 11 


145E 


8D 


46E1 






portB 


1461 


A9 


FF 






#711111111 


1463 


40 


42E1 








1466 


48 










1467 




46E1 




Ida 




146A 


09 


08 




ur o 


TT /•^/'^w'V.i^/XVi/V'V 


146C 


8D 


46E1 




3 ua 




146F 


68 








1470 


8D 


42E1 




sta 


data 


1473 


EE 


44E1 




i nc 




1476 


DO 


El 




bo© 


2.b 


1478 


EE 


46E1 




i. nc 


portB 


147B 


AD 


46E1 




Ida 




147E 


C9 


10 




cmp 


#«10 • 


1480 


DO 


D7 




bne 


2.b 


1482 


60 






rts 




1483 


A5 


80 


1 


Ida 


optmask, 


1485 


29' 


08 




and 


#13rint«r 


1487 


FO 


IF 




beq 


l.f 


1489 


20 






jsr 


print 

'\r\Ei P-option 


1480 


0D1B692050 




fee 


14A8 


60 




1 


rts 



*** Subroutines *** 
Test if board is present 



chanip» bits 

get option mask 
mask NHDption 

reset pseudo address 



get first part char, set 
by making b3 low 

prepare for invers 

inyers data 

mimm it on sta^ 

IHit high part c*M«r:, imk 

by making b3 high 

get invers data baek 

store in ram 

increase pseudo address 



chBck'^'foT' ■end'-- 

back to caller 
get.joptic3n mask 



not ready \En \r\r' ,0 

no more options, back to caller 



14A9 


AD 


45E1 


tstpia 


Ida 


contrA 


checfeE- %f Plft is already init. 


14AC 


29 


34 


and 


r/.ool 10100 






C9 


34 




cmp 


#7.00110100 




14B0 


FO 


30 




beq 


l.f 




14B2 


A2 


FF 


init 


ld» . 


#»ff 


initialisation of the PIA 


14B4 


BE 


44E1 




stx 


portA 


portA as output 


14B7 


SE 


46E1 




stx 


portB 


portB as output 


14BA 


AD 


44E1 




Ida 


portA 


get data of dir-reg. A 


14BD 


C9 


FF 




cmp 


#*ff 


port as output? 


14BF 


DO 


2A 




bne 


2.f 


Wwn^W* error 


14C1 


AD 


46E1 




Ida 


porta 




14C4 


C9 


FF 




cmp 


«Sff 




14C6 


DO 


23 




bne 


2.f 




14C8 


A9 


3C 




Ida 


#7.00111100 




14c:a 


8D 


45E1 




sta 


contrA 


CA2 & CB2 as output (high) 


14CD 


8D 


47E1 




sta 


contrB 


and select i/o registers 


14D0 


AD 


45E1 




Ida 


contrA 


get data of i/o reg.A 


14D3 


29 


3C 




and 


#7.00111100 


mask i/o reg. 


14D5 


C9 


3C 




cmp 


#7JX)111100 


and verify 


14D7 


DO 


12 




bne 


2.f 




1«D9 


AD 


47E1 




Ida 


contrB 




1«)C 


29 


3C 




and 


«3SO01111OG 




14DE 


C9 


3C 




anp'" 


#/j00111100 




14E0 


DO 


09 




bne 


2.f 




14E2 


A9 


00 


1 


Ida 


#«00 


reset pseudo address 


14E4 


8D 


44E1 




sta 


portA 


portA = low address 


14E7 


8D 


46E1 




sta 


portB 


ports * high aekiress 


14EA 


60 






rts 






14EB 


20 


3BC0 


2 


jsr 


print 




14EE 


1B20537065 




fee 


'\E Special 


8k RAM board not present \En\r' ,0 


1515 


68 






pla 


di^Hhi^; reta,#1» ,iiJdress 


1516 


68 






pla 






1517 


60 






rts 




back to main caller 


1518 


AD 


45E1 


■ 

> 


Ida 


contrA 


get statun of eontmt reg. A 


151B 


09 08 




^SQQCIDIOOO 


mati»,Slgg Mat-fr 


151D 


K) .^1 




sta 


cmtrA 


select €F¥%]R 


1520 


60 






rts, 
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LOIS AiiF^ nsi^Ersri^i^ 



Hardmare 



L521 (=© 45E1 
L524 29 F7 
L526 ED 45E1 

1^ m- 



smtram Ida 
and 
sta 
rts 



L52A 
L52D 
L52F 
L531 
L534 
L536 
L539 
L53B 

Lsm 
taw 

L544 

L546 
1548 
L54A 
L54C 
L54E 
1550 
L553 
1555 
L557 
L55A 
L55C 
LSSi, 

155F 
L562 
1579 
L57C 
157E 
1580 
1582 
1585 
1587 
158A 
tSBC 

t592 
1595 
1598 
159A 
159D 
15A0 
15A3 
15A5 
15A8 
15AB 
15AD 

t'^ 

15B5 
15B6 

15E4 
15E7 
1601 
161B 
161D 
161E 
1621 
1624 
1627 
162A 
1620 

urn 



AD 47E1 
29 08 
FO OA 
AD 47E1 
29 F7 
8D 47E1 
DO 08 
AD 47E1 

09 oe 

SD 47E1 

85 85 
A9 08 
85 8A 
26 85 
BO 07 
A9 2E 
20 23C0 
DO 05 
A9 58 
20 23C0 
C6 SA 
DO EE 
W 

20 3BC0 
0D456E7465 
20 29C0 
A9 AA 
AO 00 
A2 EO 
20 39D0 
90 03 
4C B7D0 
A9 00 
8D 44E1 
0D 46E1 
fiO 42E1 
20 OCDO 
90 06 
20 B7D0 
4C 4BIX) 
EE 44E1 
DO ED 
EE 46E1 
AD 46E1 
C9 10 
DO E3 

m. mm 

2© 3B00 
OC 

1B6920436F 

ODODOD 
2020202030 
2020382020 
A9 00 
AA 

20 2FC0 
20 35C0 
20 32C0 
20 32C0 
20 32C0 
8A 

C9 20 



tggi 



seth 



Ida 
and 

and 
sta 
bne 
Ida 



ora 
sta 

tggle rts 
; print a byte 
prbits sta 
Ida 

" ^ sta 

1 rol 
bcs 
Ida 
jsr 
bne 

2 Ida 
jsr 

3 dfic 
tame 
rts 

jsr 
fee 
jsr 
Ida 
Idy 



svch 



dclw 



nline 



nchar 



.bee 
jmp 
Ida 
sta 
sta 
Ida 
jsr 
bee 
jsr 
jmp 
inc 
bne 
inc 
Ida 
cmp 
bne 
Jmp 

jsr 

fcs. 

fee 

fee 

fee 

fee 

Ida 

tax 

jsr 

jsr 

jsr 

jsr 

jsr 

txa 

cmp 



contrA 

r/J.11101H 

cantrA 



ccDntrB 

#7.00001000 

seth 

ccDntrB 

#■/.! 1110111 

contrB 

tggle 

contrB 

#*/.000O1000 

contrB 

as 8 bits using 
temp 
#*08 
bitcnt 
temp . 

2. f 
#' . 
out 

3. f 
«' X 
out 
bitcnt 
l.b 



get status of 
make CA2 Iom 
select mm 



control reg. A 



get status of control reg. B 

mask CB2 status 

branch if CB2 is high 

get status of control reg. B 

make b3 low 

select low 4K in RAM 

branch always to end 

get status of control reg. B 

set b3 

select high 4K in RAM 
back to caller 
. and X 
save byte 
prepare bitcounter 

get bits 

branch if bit is high 
it was a low set bit 
print . for a low bit 
branch always 
it was a high set bit 
print X for a high bit 
dec counter 
loc^ for 8 bits 
back to caller 



print 

' \rEnter new 
buf in 

#buffer»8 

#buffer&255 

»y.l 1100000 

create 

l.f 

ermes 

#»00 

portA 

ports 

data 

swrite 

1. f 
ermes 
close 
portA 

2. b 
ports 
portB 
#*10 
2.b 
clo% 



file name: ' ,0 

get file name in buffer 
buffer is file name pointer 

rwd mode 

open /create file 

branch or 

print error 

reset pseudo address 

get ram cfata 

and save it on disk 

branch or 

print error message 
and close the file 
no error, so increase 
the pseudo address 



last byte ? 
loop for 4K 

end, close file and return 



print 

Dantents of the isetual VOU ch«r«el«r «©t \&)" 
'\r\r\r' 

0123456 7- 



' 8 
#«00 

crlf 

hnout 

spa 

spa 

spa 

4^20 



: d e f\r',0 
reset accu 

aecu im.mmmtii M the X-reg. 

print low nibble of accu 

always two spaces betMeen char. 

get the value and check it 
sinaller than *20 ? 



17 



m^im Aii F i^i^srsri^i^ hardware 



1630 90 05 
1632 20 23C0 
1435 DO m 

163E m mx) 

1641 m 

1642 09 40 
1644 20 23C0 
1647 A9 IB 
1649 20 23C0 
164C A9 47 
164E 20 23C0 

1651 8A 

1652 18 

nm^ m m 
wm 03 

1657 m 

1658 DO CD 
165A 69 00 
165C AA 
165D 29 OF 
165F DO BD 
1661 20 2FC0 
1664 20 2FC0 
1667 60 



1668 


20 


3BC0 


cbits 




166B 


OC 






fee 




1B6920436B 




fee 




0D0D4B6579 




fee 


liMi 


0D20202020 




fee 


16B1 


0D20202020 




fee 


16D0 


0D2020202O 




fee 


16E6 


0D20202020 




fee 


1700 


0D20202020 




fee 


1716 


0D20202020 




fee 


172C 


0D20202020 




fee 


1753 


0D0D456E74 




fee 


1771 


20 


20C0 


1 


jsr 


1774 


85 


85 




sta 


1776 


20 


41C0 




jsr 


1779 


20 


3EC0 




jsr 


177C 


BO 


F3 




bcs 


177E 


85 


84 


2 


sta 


1780 


A5 


85 




Ida 


1782 


20 


23C0 




jsr 


1785 


20 


20C0 


1 


jsr 


1788 


20 


41C0 




' jsr 


1788 


20 


3ECX) 




jsr 


178E 


BO 


F5 




bcs 


1790 


OA 




2 


asla 


1791 


OA 






asla 


1792 


OA 






asla 


1793 


OA 






asla 


1794 


A2 


04 




Idx 


i:i%^' 


m 




1 


asla 


1797 


26 


m 




rol 


1799 


CA 






d#K 


179A 


DO 


FA 




bne 


179C 


20 


3BC0 


pre bars jsr 


179F 


OC 






fee 


17A0 


1B69204368 




fee 


17BB 


0D0D415343 




fct 


17C3 


A5 


84 




Ida 


17C5 


20 


23C0 






1708 


20 


3BC0 




jsr 


17CB 


0D56616C75 




fee 


17D6 


A5 84 




Ida 


1708 






Jsr 


17DB 


m 00 




Ida 



bee 

grafic :ldt 
jsr 
Ida 
jsr 
txa 
ora 
jsr 
Ida 
jsr 
Ida 
jsr 

ineh txa 
ele 
ade 
bes 
tax 
bne 

inc 1 adc 
. tax 
and 
bne 
jsr 
jsr 
rts 



graf ic 


yes 


out 


no, it was a normal '^SOItt 




branch always 


l^lb 


print a control character 


out 


smaller than $20 


#'F 


start escape sequence 


out 


for grafic mode 




get the character 


#y.oioooooo 


set b6 (capital ASCII) 


out 


print this pseudo code 


#*lb 


escape sequence to leave 


out 


the grafic mode 


#'G 


out 





get actual value 

prepare for ADD 
#*10 add *10 for the next colom 

Ir^Jt if last one, next line 

save this new value 
nchar print next value (character) 

#*00 add *01 for next row (C=l) 

save this new v^ilye 
#*0f last line ? 

nline no, start at next line 

cr If yes 
crlf 

back to caller 

print 
$0e 

'\Ei Change bit pattern \Eh* 



'\r\rKeysi Q : exit' 

' \r + : next character' 

'\r - : previous character' 

""'^'"Xjr' LF : next line' 

'\r v/T : previous line' 

' \r , : enter a 0' 

' \r X : enter a 1 ' 

' \r ? : print this help info again' 
'\r\rEnter ASCII value in hex: *' ,0 

in ip>t input 

terr^ s«ve it to print it 

Icxipch laanvert to upper character 

asciTi^K convert \p hex nibble 

Lb'^ s, again' 

ascii save this first nibble 

temp get input back 

out and print it 

in get low nibble 

loupch convert to upper character 

aschex convert ascii to hex nibble 
l.b 

shift low. to high nibble 



#$04^ prepare loop 

shift low nibble 
"Iscii intB.;aieiM. (inili^-|}yte) 

l.b 4 times 



print 
*0c 

'\Ei Change bit pattern \En' 



'\r\rABCII s ',0 
ascii get byte 

out print as character 

print 

ArVdlui) i »',0 
aseii get byte 

hexout and print hex 

#♦00 reset pointer+l 



18 



I ' - ' 



Harduare 



17DD 


85 


82 




sta 


pointra^l 




ITDF 


A5 


84 




Ida 




ascii value in pointer 


17E1 


85 


81 




sta 


pointer 


17E3 


A2 


04 




Idx 


#*04 


prepare for loop 


17E5 


06 


81 


1 


asl 


pointer 


shift ascii value 4 times 


17E7 


26 


82 




rol 


pointer+1 


(low nibble = 16 char, lines) 


17E9 


CA 






dex 


17EA 


DO 


F9 




bne 


l.b 


loop 


17EC 


A5 


81 




Ida 


pointer 


pointer °= pseudo address 


17EE 


8D 


44E1 




sta 


portA 




17F1 


A5 


82 




Ida 


pointer+1 


., 


17F3 


8D 


46E1 




sta 


portB 




17F6 


A2 


01 




Idx 


#*01 


preparfit earsor 


17F8 


AO 


07 




Idy 
jsr 


#$07 


17FA 


20 


24F0 




poKit 


pl.acS' the 'eursor 


i7FD 


20 


3000 




j'sr 


print 


isoo 






fee 


mm Nm\r-' 


1B29 


20202020120 




fee 


76543210 


7<£^43210 76543210\r\r' 


18S7 


A9 


OA 




Ida 


#«0a 




1859 


85 


8B 




sta 


lincnt 


print 10 lines 


185B 


AD 


44E1 


1 


Ida 


portA 


get low address 


185E 


29 


OF 




and 


#*0f 


mask low nibble 


1860 


20 


35C0 




Jsr 


hncxit 


print line number 


1863 


20 


1815 




isr 


setepr 


set eprom 


1866 


AO 


04 




Idy 


#$04 


loop to print 


1868 


20 


S2G0 


2 


jsr 


spa 


4 SpadMK 


186B 


88 






dey 




186C 


DO 


FA 




bne 


2.b 




186E 


AD 


42E1 




Ida 


data 


p-int ctata from bHHUM 


1B71 


20 


4415 




jsr 


pjrtiits 


1874 


20 


21 IS 




jsr 


setraffl 


set ram 


1877 


AO 


07 




Idy 


#$07 


loop to print 


1879 


20 


3Kaco 


3 


jsr 


spa 


spaces 


187C 


88 






dey 




187D 


DO 


FA 




bne 


3.b 




187F 


AD 


42E1 




Ida 


data 


print data from ram 


1882 


20 


4415 




jsr 


prbits 


1885 


AO 


07 




Idy 


#$07 


loop to print 


1887 


20 


32K) 


3 


jsr 


spa 


7 spaces 


188A 


88 






dey 






188B 


DO 


FA 




bne 


3.b 




18QD 


AD 


42E1 




Ida 


data 


print data from ram again 


1890 


20 


4415 




jsr 






20 






inc 


crlf 


nemt MiM 


im& 


'EE' 


Ami 




portA 


increa^ pseudo addnE^fs 


1899 


C6 


8B 




dee 


lincnt 


adjust line counter 


1B9B 


DO 


BE 




bne 


l.b 


loop for 10 lines 


189D 


A2 


24 




Idx 




189F 


AO 


OA 




Idy 


#*0a 




18A1 


86 


88 




stx 


ref X 




i8A3 


84 


89 




sty 


ref y 


cursor reference in pattern 


18A5 


86 


86 




stx 


curx 




18A7 


84 


87 




sty 


cury 


cursor in reference 


18A9 


AD 


44E1 




Ida 


portA 


pseudo address to first 


18AC 


29 


FO 




and 


#$fO 


caracter line 


18AE 


8D 


44E1 




sta 


portA 




1^1 


A9 


00 




Ida 


r^et bit" and line counter 


1^3 


83 


m 




sta 


bitcrtt 




18B5 


85 


8B 




sta 


lincnt 




18B7 


20 


C619 


1 


jsr 


prlin 


print first character line 


18BA 


20 


20C0 


getin 


jsr 


in 


get keys: 


18BD 


20 


41C0 




jsr 


loupch 




18C0 


C9 


51 




cmp 


#'Q 


exit ? 


18C2 


FO 


3E 




beq 


nxtch 




18C4 


C9 


OA 




cmp 


#$0a 


<LF > ? 


18C6 


DO 


06 




bne 


l.f 




i8C8 


20 


D719 




jsr 


inclin 




18CB 


4C 


BA18 




jmp 


getin 




laCE 


C9 


OB 


1 


cnp 


#$0b 


<VT> ? 


18D0 


DO 


06 




bne 


l*f 




1802 


20 


FB19 




jsr 


'dec:lin 




18D5 


AC 


BA18 




imp 


getin 





19 



18D8 


C9 


3F 


1 


cmp 


#'? 


help ? 


IBDA 


DO 


03 




tens 


l.f 


18DC 


4C 


6816 






cbits 




18DF 


C9 


2D 


1 




#■- 


p^viBMs charactBHT ■? 


ISEl 


DO 


05 




brm 






iaE3 


C6 


84 




dee: 






1SE5 


4£ 


9C17 




jmp 




ieE8 C9 


"SB 


1 


cmp 


#*+ 


next character ? 


10EA 


DO 


05 




bne 


l.f 




ISEC 


E6 


84 




inc 


ascii 




ISEE 


4C 


9C17 




jmp 


pre bars 




ISFl 


C9 


2E 


1 


cmp 


#' . 




i8F3 


DO 


03 




bne 


l.f 




iaF5 


4C 


6919 




jmp 


cbit 




ISFS 


C9 


58 


1 


cmp 


#'X 


enter X ? 


IBFA 


DO 


03 




bne 


l.f 




18FC 


4C 


6919 




jnp 


cbit 




18FF 


4C 


BA18 


1 

m 


Smp 


t^tin 




1902 


A2 


01 


nxtch 


Idx 


#$01 




1904 


AO 


15 




Idy 


#«15 




1906 


20 


24F0 




jsr 


posit 




1909 


20 


3BC0 




jsr 


print 




190C 


4E65787420 




fee 


Next character ? (Y«/N) '.0 


1925 


20 


26C0 




jsr 


inecho 




1928 


20 


41C0 




jsr 


loupeh 




192B 


C9 


4E 




cmp 


#'N 




192D 


FO 


03 




beq 


l.f 




192F 


4C 


6816 




jmp 


cbits 




1932 


20 


3BC0 


1 


jsr 


print 




1935 


0D53617665 




fee 


'\rSave 


this character set ? (Y*/N) ' ,0 


1958 


20 


26C0 










195B 


20 


41C0 




jsr 


ifxipch 




195E 


C9 


4E 




emp 


#'N 


exit only on "N" 




m 




beq 


l.f 


19&2 4C 


BF15' 




jmp 


svch 


save actual character set 


1965 


20 


2FC0 


1 


jsr 


crlf 


give always a new line 


1968 


60 






rts 




back to caller 


1969 


48 




5 

cbit 


pha 






196A 


A9 


08 




Ida 


#*08 




196C 


85 


8A 




sta 


bitcnt 




196E 


68 






pla 






196F 


09 


51 


1 


cmp 


#'Q 


exit ? 


1971 


DO 


03 






8.f 




1973 


4C 


0219 




im 






1976 


C9 


3F 


8 


cmp 


»--'? 


help ? 


1978 


DO 


03 




bne 


B.f 


197A 


4C 


6816 




jmp 


cbits 




197D 


09 


2E 


8 


cmp 


#' . 


enter 0 ? 


197F 


FO 


06 




beq 


3.f 




1981 


C9 


58 




cmp 


X 


enter 1 ? 


1983 


FO 


OD 




beq 


4.f 




1985 


DO 


2E 




bne 


6.f 


branch always 


1987 


A9 


2E 


3 


Ida 


#■ . 


print "." 


1989 


20 


23CX) 




jsr 


out 


198C 


18 






Clc 




clear c«rry to 


198D 


26 


85 




rol 


temp 


shi.t'l:* # in 


198F 


4C 


9A19 






5.f 




1992 


A9 


58 


4 


iiii' 




print "X" 


1994 :33 


zsco 




jsr 
sec 


out 










set carry to 


1998 26 


85 




rol 


temp 


shift a 1 in 


199A 


C6 


8A 


g 


dec 


bitcnt 




199C 


DO 


17 




bne 


6.f 


loop for 8 bits 


199E 


A5 


85 




Ida 


temp 


transfer new byte 


19A0 


8D 


42E1 




sta 


data 


in charracter generator 


19A3 


A2 


09 




Idx 


#*09 


19A5 


AO 


03 




Idy 


tt*03 




19A7 


20 


24F0 




jsr 


posit 




i9AA 


A5 


84 




Ida 


ascii 


get charecter 


19AC 


20 


23C0 




jsr 


exit 



20 



. W 20 BE19 




jsr 


4C BA18 




jmp 


.9B5 20 20C0 




j'sr 


L9BB 20 4iC0 




Jsr 






jmp 


L9BE A6 86 


5 

Eurpos 


Idx 


L9CO A4 87 




Idy 


L9C2 20 24F0 




jsr 


L9C5 60 




rts 


L9C6 A4 87 


5 

prlin 


Idy 


L9C8 A6 88 




L9CA 20 24F0 




%m. 


TOD AD 42E1 




19D0 20 4415 




imr 


L9D3 20 BE19 








■ 




19D7 EE 44E1 




int 


19DA E6 87 






19DC E6 8B 




inc 


19DE A5 SB 




Ida 


19E0 C9 OA 




cmp 


19E2 DO 10 




1^ 


19E4 AD 44E1 




l#i 


19E7 29 FO 






i 9E9 ffl> 44E1 






19EC A9 00 




Idto 


19EE 85 8B 




S:ta 


19F0 A5 89 




Ida 


19F2 85 87 




sta 


19F4 20 C619 


1 


jsr 


19F7 60 




rts 


19F8 A5 8B 


5 

dec 1 in 


Ida 


19FA DO 18 




bne 


19FC A9 09 




Ida 


19FE 85 8B 




sta 


lAOO AD 44E1 




Ida 


1A03 29 m 






IMS' M' ' 




■etc 






adc 


on 44^1 




'Sta 


lAOB 18 




clc 


lAOC A5 89 




Ida 


lAOE 69 09 




adc 


lAlO 85 87 




sta 


1A12 DO 07 




bne 


1A14 CE 44E1 


1 


dec 


1A17 C6 87 




dec 


1A19 C6 8B 




dec 


lAlB 20 C619 


2 


jsr 






rts 




1 


end 



curpos 

getin 

in 

loupch 
l.b 

curx 
cury 
posit 



place cursor back 
wait for input 
input routine 
durlnt «hB B bit loop 



adjust the cursor 



cury 
ref X 
posit 
data 
prbits 



print actual line 
cursor back 



portA 

cury 

lincnt 

linen t 

#*0a 

l.f 

portA 

#*fO 

portA 

#«00 

lincnt 

r!»fy 

mry 



lincnt 

1. f 
#$09 
lincnt 
portA 

#«09 
portA 

.refy 
««09 
cury 

2. f 
portA 
cury 
lincnt 
prlin 



increase pseutJo «idress 
and cursor 

increase line counter 
and check for max. 



restore pseudo adddress 

counter 

restore line counter 
adjust cursor 
print this new lipm 

first line ? 

yes, set line counter to max 
set pseudo address to max 

adjust cursor 



no, decrease pseudo address 

cursor 

and line counter 
print this new line 



setvf 
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IE)I^ AiW^ HSISE^TEn^lBS DOS-65 Cormer 



Programeren in Assembler (deel 3) 



In deel 1 en 2 zijn optelroutines behandeld die twee hexadecimale getallen optellen en 
^et resultaat ook weer in hexadecimaal wegzetten. Nu is hexadecimaal een erg mool 
talsteisel vo&t g#ljt"ulk in computers, zle ook deel 1, een byte is precies met twee 
hexadecimale karakters 0...F te beschrijven. Voor 'gewone' stervelingen is hexadecimaal 
echter abracadabra, men is gewend zijn getallenbrij met 0...9 voorgeschoteld te krijgen. 
En ziet, ook voor dit probleem is een oplossing bedacht; de BCD notatie, in goed Frans 
'Binary Coded Decimal'. Decimale getallen weergegeven in binair. Dat betekent due dat 
van de 16 mogelijke combinatie* irwa 4 Mts er gle€!its 10 gebnitkt woT^em 

0 - 0000 1 = 0001 2 = 0010 3 = 0011 t -i 

4 = 0100 5 = 0101 6 = 0110 7 - 0111 

8 = 1000 9 = 1001 

De codes A,. F zijn. in BCD dus niet toegestaam* Alles goed en wel zul je zeggen, hele 
l«iik(B code, Utaar eh, wat gebeurt er nu als je twee van die BCD gecodeerde getallen gaat 
©ftellen? Voorbeeldje: 08 + 03 — > BCD 1000 + 0011 = 1011 ~> $0B Het resultaat klopt 
niet want in BCD zijn de codes A..F VERBOTEN, STRICTLY PROHIBITED, NJET TOVARITSJ, AF 
FIKKIE! Met andere woorden, zodra het resultaat van een optelllng groter wordt dan 9; 
moeten we er 6 biitellen om die illegale codes te overbruggen; $0B + 06 = 1011 + 0110 = 
Oe©i 0001 - 11 BCD Nu klopt het antwoord 08 + 03 - 1 1' (BCblV «rrtig aardlg boor ik je 
denken, maar moet ik nou in al mljn programma's eerst checken of mijn resultaat wel in 
BCD blijft en zo niet hoeveel moet ik er dan bijtellen om het kloppend te krijgen? En 
hoe zit dan dan met BCD aftrekken? En hoe vertel ik het mljn moeder? Voorwaar problemen 
van niet geringe omvang!! Ook de chipboeren hadden dat in de gaten en bakten op hun 
chipjes of wel een instructle mee met de flag dekkende benaming DAA, (Frans voor Decimal 
Adjust Accumulator), of zoals in het geval van de 6502, en daar mogen we de ontwerpers 
van Rockwell nog immer dankbaar voor zijn, een decimal mode op de processor itself. Die 
DAA instructle dient uitgevoerd te worden na iedere optelllng c.q. af trekking om ervoor 
te zorgen dat het resultaat in BCD notering blijft. Deze oplossing wordt o.a. toegepast 
in chips van Motorola. Good ol' 6502 heeft echter een hele luxe decimal mode die we met 
twee instructies aan en uit kunnen zetten. Die instructies zijn: 

SED SEt Decimal mode 
CLD Clear Decimal mode 

Deze instructies beinvloeden het D-bit van het statusregister P van de 6502. Het D-bit 
geeft aan of de ALU (Arithmetic Logic Unit) moet rekenen in binaic ©f In decimaal. Is 

het zo simpel? En ik ant;W;#Qrd met emnMvexi simpel Ja (een gepaste stllte lijkt me 

nu wel op zijn plaats dacht Ik zo). 

Frobeer het volgende maar eens: 

Copier ADD 8.MAC uit deel 2 naar ADD 8JBCD.MAC en lees die copie in in ED (lastig lezen 
met twee Eeer in na elkaar). Vdeg "le SID iBstwctie toe tbp de ee#8t«'-*«tel iit' lfi€ 
ADD_8 BCD programma en de CLD instructle tussen de STA RESULT en de BCC OK instructle. 
AssemFleer het geheel, laad het programma in memory met LOAD en voer twee BCD gecodeerde 
getallen in op de bekende geheugenlocaties. 

HVB. getallen dus die alleen de codes 0...9 mogen bevatten!! 
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1.1* 

)10N> @ 0200 

0200 00 83 

0201 00 09 
^0N> E 1000 
92 

mm 

Eti iat Icloptlf Wederom voel Ik een nlet te bedwingen eniotle zlch meester tiialten van mija 
strottehoofd zodat mij het schrijven voor een ogenblik onmogelljk wordt 

gemaakt Gelukkig had ik nog zo'n pllletje van die aardige dokter waar 

ik weer helemaal kalm van wordt, zodat W verder kunniin tot '^eirhaal: 

De 6502 heeft Inderdaad In declmaal gerekend en we zien dat het resultaat netjes In BCD 
tiotatle blljft. Met het ADD 8 programma had er Immers $8C als antwoord gestaan. De 
overflow waarschuwing werkt nog steeds maar nu blj een resultaat groter dan 99 i.p.v. 
getallen groter dan $FF zoals bij ADD 8. Probeer maar eens. Het is ZEER belangrijk dat 
je de declmale mode van de 6502 weer 3irect uitzet als je klaar bent met de berekenlng* 
l*Mm fe it C^D instructie achterwegen of zetten we hem pas vlak voor de RTS dan z&l het 
systeem 'hangen' zodra je het programma probeert uit te voeren of de resultaten zijn 
onbetrouwbaar. De HEXOUTl en PRINT routine verwachten namelijk de binaire mode van de 
6502. Ook de rest van de 1/065 en DOS65 routines zijn nogal kieskeurlg op dit punt en 
dus: ALTIJD UIT DIE DECIMAL MODE ZODRA JE KLAAR BENT MET DE BEWERKING. 

Vqqx £e;tallen tot 9999 kun je het ADD 16 programma op soortgelijke wiJZie asj^assen* De 8 
en 16 Mts aftrefc rotttlne is gemakkeTijk af te lelden van ADD_8 en *DU 16 door de A©C 

Instructies te vervangen met SBC, de CLC instructie wordt SEC en de BCC T3K wordt BCS OK. 
Dok van deze routines is dan een decimale versie te maken door toevoeging van SED en CLD 
instructies op de aangegeven plaatsen. 0ns pakketje reken routines wordt op diemanier al 
aardig uitgebreid* Maar we zijn er nog niet want zoals de meesten van jullie weten is er 
ook m'&g z0t@Cir aid vermenlgvuldigen en delen, vroeger teen je nog klein was hsh Je dat 
immers allemaal op school geleerd. Nu kan de 6502 NIET vermenlg vuldigen en ook NIET 
delen. In bljna alle processoren van de huidige generatie zit meestal wel een MUL en DIV 
instructie. Gelukkig is met wat hogere wiskunde eenvoudig te bewijzen dat 
vermenigvuldigen niets anders is dan herhaald optellen. Delen is herhaald aftrekken 
Kotdat het resultaat te klein wordt en dan bijhouden hoe vaak dat ging, als er nog lets 
©verblijft van het getal dan is dat 'de rest'. We werken hier Immers met gehele (of 
Integer) getal len, dus geen cijfers achter de komma. Cm jeugdige lezers niet al te zeer 
te verwarren zal ik het wiskundige bewijs van deze stellingen achterwege laten. Hoe 
vermenig vuldigt nu een doodnormaal mensch zoals U en ik (hoewel, doodnormaal ?) een 
tweetai getallen: , 

123 
156 X 

738 = 6 X 123 

6150 =0 opschrijven, 5 x 123=615 

J2S0© + - 00 opschrijven, 1 x 123-123 

imBB 

Wat doet men nu eigenlijk? Eerst 6 x 123 = 738 gewoon opschrijven in de optelkolom, maar 
dan gebeurt er lets raars, je schrijft eerst een 0 op en berekent vervolgens 5 x 123 = 
615 en schrijft dat voor de 0. In feite bereken je dus 5 x 1230 = 6150. Bij de laatste 
berekettlng geldt hetzelfde alleen hler met twee nellen dus in feite 1 x 12300* Ali we 
dit nu eens door de computer laten proberen, alleen werkt die zoals we al weten met 
slechts twee getallen 0 en 1 , de tafels die we dus uit het hoofd moeten leren zijn de 
binaire tafel van 0 en de blnalre tafel van 1. Volgende week overhorlftg! Die tafels zlen 
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er 20 uit: 



tafel van 0: 0x0=0 
0x1 = 0 



tafel van 1 : 1x0=0 
1x1-1 



Binair optellen gaat zo: 



0 


+ 


0 = 


0 


0 


+ 


1 = 


1 


1 


+ 


0 = 


1 


1 


+ 


1 = 


0 



(1 onthouden — > carry) 



We gaan nu vermenigvuldigen In het binaire stelsel aan de hand van onze ervaringen in 
het decimale stelsel en met behulp van bovenstaande tafels die ledereen voor volg^emde 
week uit het hoofdmoet leren. Stel we nemen de getallen 13 en 5: 

, , - , 13(dec) = llOl(bin) 

■ 5(dec) = OlOl(bin) 



1101 GETALl 
0101 X GETAL2 



1101 = 1 X 1101 [] 

00000 = 0 X 1101 [0] 

noloo = 1 X 1101 [00] 

0000000 = 0 X 1101 [000] 



imemi ,».dioo qooi = 

A 1 = 65 = 13 X 5 



Zoals je ziet schuift GETALl a.h.w. iedere keer een bit naar links, daarna wordt het 
vermenigvuldigt met het overeenkomstige bit van GETAL2 en het tussenresultaat wordt 
opgeschreven voor de optelling. We kunnen dit nog wat vereenvoudigen door alleen iets op 
te tellen als het resultaat van de tussenberekening ongelijk is aan nul, dus: 

1101 GETALl , . . 

1101 
11010© -t- 

J 000001 RESULT 
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ioe gieten Wft iift no in 0»n f 9©j|t«nM? Het beste gaat dit door eerst een stroomschema of 
in goed fram f lmtMa^rmf vm t« ftstoijven ptogtmma. te maken: 



+• 



Zet RESULT op nul j 
._ ^ (. 



I 

+ 



schuif LSB van 
GETAL2 in Carvy 
H . 



/ Carry = 1 ? \ Nee 

+ H + 

1 RESULT := RESULT + GETALl | 



Schuif GETALl een 
plaatsje naar links 
^ 



/ S keer geiami. I V 



-+ 



H + + 

I KLAARII! I 
^ + 



We zien in het f lowdiagraitt twee keer het woordje 'schuif staan. Nu heeft de 6502 een 
girofce hoey«e;^Jiii»$d aatt schijif opeiraties in het instructie arsenaal; 



ASL 

LSR 
ROL 



iU^t]»netic Shift Left 
Logic Shift Right 
lOtate Left 
BOtate Rigbe 



Oadat eem flmatje laeer zegt dan itifell i^jiiefl! «al ik deae schuif opcraties ver^ldelijken 
aan de hand van de vplgende diagranment 

ASL 

<- <- <- <- <- <- <- <- 

+ + + + + + + + + -j + 

I C I <~ I 7 I 6 I 5 I 4 I 3 I 2 I 1 I 0 I <— 0 
+_«._+ +, — H ^ ^ 4 — -^ 1 — 

Alle bits schuiven een plaats op naar links bij bit 0 komt een '0' binnenschuiven en het 
hoogste bit 7 schuif t in de Carry. Omdat ieder bit precies 2x zoveel waard is geworden 
mag je 2««geB dat het resultaat met 2 is vermenigvuldigt (v^daar de term Arithmetic 
» rekenkundlgj. 
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-> -> -> -> -> -> -> -> 
+ — + — + — + — + — + — + — + — (. + — + 

0 —> I 7 I 6 I 5 I A I 3 I 2 I 1 I 0 I — > | C | 
+ + + + H + H + + + + 

Precles de andere kant op gaat het met deze operatie, alle bits schuiven een plaatsje op 
naar rechts. Het zevende bit (MSB) wordt 0 en het laagste bit (LSB) schuift in de Carry. 
Deze bewerkingheet 'Logical Shift Right' omdat bij 'Arithmetic Shift Right' het tekenbit 
(MSB) niet wordt aangetast (dat wordt dus naar zichzelf gecopieerd). Nu heeft onze 6502 
heleiaaal Ml^ dus waar heb ik het eigenlljk over? 

ROR 

-> -> -> -> -> -> -> -> 

+ + + + H + + + + 

H 1 7 I 6 I 5 I 4 I 3 I 2 I 1 I 0 I 

+ H ^ 1 1 H H K + 

+ + 

J 1 

Alle bit schuiven een plaatsje naar rechts, daarblj schuift het LSB in de Carry en het 
MSB krljgt de oude waarde van de Carry. Voor de oplettende lezertjes zal de volgende 
operatie zeer zeker een verasslng zljn iri^t trij 

ROL 

<-<-<-<-<-'<-'<^ <^ 

+ + + + + + + + + 

H 1 7 I 6 I 5 I 4 I 3 I 2 I 1 I 0 I + 

H H ^ 1 (— — ^ H +-— + 

+ + 

H + 



schuiven alle bits naar links!! Het MSB schuift daarbij in de Carry en het LSB krljgt de 
ocid« iKraarde van de Salary. Haar genoeg geschoven, we gaan tiu het flowdlagfam ontzetten In 
een werkend prograiiM« ■ ■ ] ■ ■ 

; File : MULT 8x8 .MAC 

; Purpose : MultTply two 8 bit numbers 

J print A in hexadecimaal 
I f^^fc tiSsmt tot aan <NULL> 
; print <CR><LF> 



CILF EQU 



1^1' 
$C02F 



; Data section 

ORG $0200 

8 bits operand 

8 bits operand 
16 bits result 



ORG $1000 



GETALl 


FCC 


0 


> 


GETAL2 


FCC 


0 


9 


RESULT 


FDB 


0 


» 






1 . ■ 
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MUL 8x8 


LDA 


#0 




zet RESULT op nul 




STA 


RESULT 






STA 


RESULT+1 




8x8 levert 16 bits result aat 




STA 


TMP 




tiodlg voor GETALl schuif 




LDX 


#8 




gebrulk X als teller 


LOOP 


LSR 


GETAL2 




schuif LSB van GETAL2 in de Carry 




BCC 


NO ADD 


! 


het bit is nul, dus we hoeven 










niets op te tellen, het tussen- 








. 

* 
















CLC 










ADC 


GETALl 


• 


RESULT m wmvm * mmi 




STA 


RESULT 








LDA 


RESULT+1 








ADC 


TMP 








ifjL 








NO ADD 


ASL 




• 


schuif GETALl een plaat«j« ums 








> 


links met een 0 op bit 0 




RQL 


TMP 


i 


schuif het MSB (bit 7; van GETALl 










via de Carry in TMP 




DEX 




> 


teller := teller - 1 




BNE 


LOOP 


i 


herhaal totdat teller = Q 




JSR 


CRLF 








LDA 


RESULT+1 


> 


laat resultaat zlen op scherm 




JSR 


HEXOUTl 








LDA 


RESULT 








JSR 


KBXOUTl 


















■ ' 










END 


MUL 8x8 


> 


tM^'s all folks!! : i ^ 



Voer het programma in met ED en save het in de file MUL_8x8<ll4^» 
pftftiaaiie op de gebrulkelljke nanler en laad het in het geheugen: 

$ as mul_8x8 
Pass 1 . . . 
Pass 2... 

Last assembled address: 1040 
Errors detected^ '6 " - 



Ga vervolgens In de MONITOR: 



MON> @ 200 

0200 00 05 

0201 00 50 



> $05 = (0 X 16) + (5 x 1) = 5 
— > $50 = (5 X 16) + (0 X 1) - 80 



M0N>e 1000 

0190 > - (1 X 256) + (9 X 16) +(0x1)- 256 + 144 - 400 

"Hfet 'a##do#<! fci'&ifltfl"! P*t>%feer zfeif «aar^at amdere getalle»» i« «t*4t 4«%«ltteen dat 
zowel GETALl als GETAL2 door het MUL_8x8 programma worden aangetast d.w.z. de waairdfe 4ie 
je erin zet is na uitvoering verdwenen. Wi 1 je die getallen bewaren dan zul je 26 dllS 
eerst in twee andere geheugen locaties moeten bewaren. We hebben in dit programma voor 
het eerpt gebrulk gemaakt van het index register X en wel als teller. We moeten immers 
Wihoaifea 1l®«v##l^M^ al gedaaa liefeben. Nu is register X daar heel geschikt voor 

want de 6502 beeft een hele leiike instuetle DEX (In goed Frans nOEcrement Index X') die 
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de waarde van het X register tmt preclits 1 vermlndert* Pus niet omslachtlg: 

LDA TELI.ER i .> j- ; ' 

SEC ■ .. ■ 

SBC #1 
STA TELLER 

maar slecht een enkele instructie die bovendien slechts een byte lang Is tegen mlnlmaal 
7 bytes zoals in bovenstaand subprogrammaat j e. Bovendien kun je nadat de instructie is 
uitgevoerd direct testen of X misschien al nul is geworden doordat de DEX instructie de 
Z-f lag van het status register P aantast. Afhankelijk van de waarde van X wordt de Z- 
f lag gezet (X is dan nul) of gewist (X is niet nul). De Z-f lag staat voor ZERO flag (zie 
ook deal 1) en dat is eigenlijk een naam die de lading volledig dekt want met deze flag 
kun je testen of lets nul is of niet. Zoals we ook al in deel 2 hebben gezien kun je 
zo'n flag het gemakke li jkste testen met een branch-instructie. In deal 1 was dat de BCG 
en de BCS en nu komt daarbij de: 

BNE Branch if Not Equal (to zexo) 
BEQ Branch If IQiIld CtO ^so> 

in BASIC: 

IF (Z=l) THEN GOTO (BEQ) 

IF (Z-0) THEN GOTO (BNE) 

Dus als we in ons programma direct na de DEX instructie een BNE opnemen dan «al ie 
bi?mch precies 8x worden uitgevoerd want daama is X»0 dus de test is alet laager waar» 

Jklm we iiattr hit programma kijken dan is het eigenlijk een recht toe, recht aan ©plossing 
van ons probleem. Het programma werkt wei maar is niet erg optimaal. Nu is dat !voor een 
enkele vermenigvuldiging niet erg, maar stel dat we deze routine willen feb*u(ltetfl In een 
real-time procesbesturing waarbij duizenden vermenigvuldigen per seconde gedaan moeten 
worden. In dat geval is het erg belangrijk cm het programa zo optimaal mogelijk te maken 
qua snelheid. Ook proberen we de lengte van het programma in te korten, bij kortere 
algprithmes voor hetzelfde probleem blijft er meer geheugenruimte over voor data of die 
ene routine die het g^h^el nog f litsender maakt dan het al is. 

Laten we maar eens kijken waar we op kunnen besparen: 

We gebruiken steeds geheugenlocaties op bladzijde 2 van ons RAM geheugen. Nu heb ik het 
in deel 1 als eens gehad over feet zero page geheugen. Dat zijn dus alle adressen van 
$0000...$OOFF, de oplettende l6«er ziet direct dat bij deze adressen de bovenstt § bi-ts 
altijd 0 zijn m.a.w. we kunnen deze adresgen ook met een 8 bits getal 'aansp'refeen' 
i.p.v. met de gebruikelijke 16 bits. Nu hadden de chipbakkers van Rockwell dat ook in de 
gaten en daarom bedachten ze een adresseermethode waarbij het adres van de 
geheugenlocatie bepaald wordt door een enkel byte, orgineel als die jongens zijn noemden 
ae dat de ZERO PAGE adressering. Wat is nu het voordeel zul je vragen? Wei dat is 
eenvoudlg te beantW&orden, oadat de 6502 nu slechts een byte hoef t in te lezen om te 
weten waar ie de data vandaan moet halen, kan de instructie veel sneller worden 
uitgevoerd. Die instructie tijden worden uitgedrukt in het aantal clock cycles die nodig 
zijn om de gehele instructie uit te voeren. Instructies die betrekking hebben op interne 
registers zoals de Accumulator kunnen veel sneller worden uitgevoerd dan instructies die 
Via het Rl«''^«ifeiiji»« ■■'Z)ekt#»^1ifc-M#r«^ van >iMf ■:$W^m^ctte- 

naast elka^t ^ ^ ' ' . : - : , a. ; ■. 

Accumulattt .^Absoluut -mtesm Zero page 

/I 3 ■ . . 1. . ; . . . ■ ■■ 

dan glen W€ dir dmiielijk gelllugtreerd. ©raait de 6502 bijvoorbeeld op een clock 
frequentie van 1 Mhz dan duurt de Instructie ASL A dus 1 uS , de instructie ASL $0200 
duurt 3 uS en ASL $30 duurt 2 uS. Dat lijkt niet veel uit te maken totdat je deze 
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instructies in een loop hebt staan die 100 miljoen keer herhaald moet worden!!! Het 
lijkt er dus op dat we al een flinke tijdwinst krijgen door onze variabelen in zero page 
te zetten. Meer tijdwinst kunnen we halen door de Accumulator te gebruiken voor de 
©P^lag van het resultaat. We kunnen namelijk het naar links schuiven van GETALl 
ac'htef#efe iatew H&ot %Mt liitslj ir#^ht8 setettlven van result. Omdat schuiven in de 
Accumulator het snelste gaat en bovendien alle aptelllngen via de Accumulator verlopen 
is dit register de beste keuze. Zeals we al weten Is het resultaat 16 bits breed dus zal 
er voor het tweede byte van het resultaat een geheugen locatie moeten worden gebruikt. 
We nemen daarvoor de eerste locatie van RESULT (pseudo Accumulator) en zetten hem 
(ulteraard) in het zero page RAM. Voor GETALl en GETAL2 nemen we ook ssero page lacatlfis 
en het (verbeterde) progranaaa wordt dan: 

• File : MULT 8x8 .MAC 

; Purpose : MultTply two 8 bit numbers 



HEXOUTl EQU $C038 
fitifti IQ^ $C03B 
CRLF EQU $G02f 



print A in hexadecimaal 
i print tekst tot aan <NULL> 



J print <CR><LF> 



; Data section 
016 



GETALl PCG t 

GETAL2 FCC 0 
RESULT FDB 0 



8 bits operand 

8 bits operand 
16 bits result 



i Code section 



$1000 



MUi* 8x8 LDA 
~ STA 
LDX 

LOOP LSR 
BCC 



CLC 
ADG 

NO_ADD Wm^ 

ROR 

DEX 
INE 
STk 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
RTS 



#0 

RESULT 
#8 

GETAL2 
NO ADD 



GETALl 

RESULT 



LOOP 

RESULI+1 

CRLF 

RESULT+1 

HEXOUTl 

RESULT 

HEXOUTl 

CRLF 



zet RESULT op nul 

gebruik X als teller 
scbulf LSB van GETAL2 in de Carry 
het T)lt is nul , dus ire hoe^en 
nlets op te tellen, het tussen- 
resultaat is immers toch nul 

A A + GETALl 

''#elMnlf^ .iL ^mmj l»$tlt« en vang de 
e.v*'<«t:ry van de flf tailing in A 
vanfe Ket LSB van A via carry op 

in RESULT 

teller := teller - 1 
bei^it^^ totdat teller - 0 



Imt xmsaltSjBt: z|,i^ ep scheni 



END 



MUL 8x8 



I tMl"* All folks I! 
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Assembleren we dlt progr^inis: j ; i j 

$ AS MUL_8x8 
Pass 1 . . . 

Last assembled address: 1025 
Errors detected: 0 
$ LOAD MUL 8x8.BIN 
$ MON ~ 

MON> @ 20 

0020 00 05 

0021 00 50 . , 
MON> E 1000 

OlfO — > zelfde antwoord als met het eerste programma, het 
lljkt te werken!! 

We zlen we dat het programma maar liefst 23 byt6« korter Is dan liet vorlge, veel sneller 
werkt, minder RAM locaties nodlg heeft (TMP is vervallen), alleen GETAL2 nog maar 
aangetast (dus minder copieren van data nodig cm deze routine te gebruiken) en bovendien 
lekker ondoorzichtlg is geworden voor de volkomen leek. U heeft zichzelf daarmee 
onmisbaar gemaakt mits u natuurlljk de fout maakt om dit juweeltje voldoende te 
documenteren. Ik geloof dat ik die fout nu wel heb gemaakt en beschottw mezelf dti^titde 
dan ook als misbaar, in f eite wordt ik geaifit als kiespljn dus 
arlifiieef en tot deel 4 maar weer«..«. 

Ant cine 



jHewiB Tan bet BaBlc-f rout 

Sinds kort is er een nieuwe Basic voor 
DOS-65 beschikbaar namelljk versie 2.20. 
Im d«z« 'wexmtM si Jn 3 '>et:a£<grft«wt'« 'tm-gW" 
voegd te weten: ' 

- NEW <adres> 

- OLD 

- mmioy 

f erier is hm CM,^it#tesii«siit ttitg€breld en 
zijn er wat interme bits rechtgezet, dit 
om het een en amder in betere banen te 
lei den. 

De heer B. de Bruine heeft gelijk op de 
Basic release ingehaakt en heeft de SCRED 
voor V2.20 aangepast (zie zijn artikel 
elders in dlt blad). 

Zoals gebruikelijk is de Basic via Jan 
Derksen, de DOS-65 Cobrdinator te verkrij- 
gen. 



Ook via de Jan DerkfeiEi te v^rkrlj|g«n ttm @f 
het bulletin board beschikbaar Is een 
vernieuwd en snelXer lopend vertaalpro- 
gramma voor Basicode 3. Dit vertaalpro- 
gramma is inclusief een plotroutine en 
bestaat uit BC0DE3V15.BAS en BC0DE3V18*BIN 
(.MAC). Dit vertaalprt^grttfima Is mtet mMr 
Basic V2.00 te runnen omdat gebruik wordt 
gemaakt van de nieuwe statements die V2.20 
rljker geworden is. Op en/of aanmerkingen 
over Basic V2.20 en het vertaalprogramma 
zljtt ulceraard welkom bi^* 

Frank Bens 

Tjalkstraat 25 
1784 RX Den Helder 

Noot van de redactle: 

Software wordt tegen kostprijs verspreid. 
De kosten voor medium en verzending zijn 
vastgesteld op fl. 7,50 per sehijf . 

Voor DOS-65 Basic is documentatle beschik- 
baar voor fl. 25,—^. 
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CCTiputers . . . « . « (Peel 4) 
Inleldiiigy 

In de vorlge (vrij pittige) aflitsvering van 
deze serle hebben we gezien hoe de proces- 
sor het geheugen benadert en hoe zijn 
Interne opbouw Is. In deze af levering gaan 
we '•m»<'^mi»e' met de processof bezlghouden. 
We gaan namelljk kijken naar de registers 
die een processor aan boord heeft en naar 
de diverse moge li jkheden cm geheugen 
adresseren. 

AmkgmMit«B ■.mmjki^m\ m&Hi'mtt-s- zlch- vriJ 
inteaiief beislghottdetr taet de 6562 en de 
8088, zal ik trachten zo langzamerhand het 
zwaartepunt wat te verleggen naar een 
derde zeer interessante processor, de 
68000. Toch zal ik trachten de opzet zo 
aigeneeti aogelijk te hottden en borvendlen 
nog steeds de doelstelling "Beginnersru»- 
briek" in het oog proberen te houden. 

PrograiBBeeraodellen . 

Als we een processor bekijken, dan wordt 
meestal eerst naar het zogenaamde progranr- 
meermodel gekeken. Dit is een korte be- 
schrijving van de processor waarin de 
belangrijkste eigenschappen -yaa de p^'omw* 
BOT vastgeiegd zi^* 

In figuur 1. is het pt^tmmtmsmdml *«« 

de 6502 weergegeven. 



Bit 15 8 7 1 

I A I accuaiili^'Qr 
+ + 

I X I index register 
I ' Y j index register 

H + 

H + 

00000001 1 S I stack pointer 
■i + 



I PCH I PCL I progt*(t- ©@«w*«ir 



|lif IpISC't iti>f«I^S register 



Figtiur 1* Fr<%raiBiBeeriffiodel 6502. 



In deze figuur zien we dat een 6502 be- 
schikt over registers met een breedte van 
8 bits* Hede aadat de 6502 ook over een 8 
bits dartabwB bescMkt, is de 6502 een 8 
bits processor. De 6502 heeft de beschik- 
king over ^ accumulator, en twee index- 
registers. Verder heeft de 6502 een 16 
bits program counter, een 8 bits stack 
pother een een status tegltter. 

De 6502 heeft een 16 bits brede adresbus, 
dus kan in de program counter altijd een 
volledig adres staan. Zoals in deel 3 
b«:Schreven is, is dit het adres van het 
eerst valgende stukje pf^fisawia dat ingele- 
zen gadt worden. We zullen straps zien, 
dat het helemaal niet zo vanzelf sprekend 
is dat er een volledig adres in de program 
counter kan staan. 

De Btackpointer is blj de 6502 oefc 8 bits 
breed. De stack is een zeer belangrijk 
stuk geheugen. Aangezien een 6502 werkt 
met adressen van 16 bits moet er dus op de 
of andere manier vastgeiegd zijn waar 
deze stack in het geheugen ligt. BiJ de 
6502 bevatten de hoogste 8 bits van een 
stackadres per definitie het getal $01. De 
stack kan dus lop en van $OiOO tot: en met 

$01FF. 

Als laetste hebben we bij een 6502 het 
status of processor status register. In 

goed nederlands wordt dit register ook wel 
het vlaggenregister genoemd. Elk bit in 
het status register geeft een bepaalde 
toestand aan. Zo geeft het N-bit aan dat 
de laatste bewerking een Negiitrief getai 
opleyerde. Het V-bit geeft aan dat de 
laatste bewerking leidde tot overflow, het 
Z-bit geeft een resultaat nul (Zero) aan. 
Het C-bit geef een Carry aan en is te 
verge lijken met het ^ onthouden bij een 
optelling. Het D-bit is typisch voor de 
650'2» ©it bit geeft aan dat de processor 
in decimale mode met blnair gecodeerde 
decimale getallen moet werken (zle het 
artikel van Antoine Megens in dit nummer). 
Tenslotte hebben we nog het 1-bit waarmee 
we aangeven of externe ixit«»ir)if t» Itomen 
we in een letetfe Aflevetfnf of terug) 
toegestaan zlJn en bet 1-bit dat aangeeft 
of een interrupt optrad t.g*v. een Break- 
instructie. 

Voor het vervolg^ is het verder nog belai^- 
rljk te weten dat we blJ een 6502 spreken 
over geheugen-pagina's (pages). Blj de 
meeste processoren is het geheugen wel op 
de §§n of andere manier in pagina's inge- 
deeld maar bij de 6502 zijn aan enkele 
paglna's zeer spedale functies toegekend. 
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Een pagina is een geheugen-gebied van 256 
byte en start op $nnOO en eindigt op $nnFF 
waarbij nn bet paglnanummer Is. Ult bet 
^#Gr^aMi# ms ml fi^ieii 'dat pagina 

01 bedoeld is voor de stack, we zullen 
straks bij de adresseertechnieken ook nog 
zien dat pagina 00 ook een bljzondere 
plaats Inneemt. 
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HgUEit i4 frogramiieermodel 



In figuur 2. is het prograiBmeenaodel van 

de 8088 weergegeven. 

De 8088 heeft data-registers met een 
%r%etr6 It bits. I>« intabus is %tf Am 
8088 8 bits breed. Een dergelijke proces* 
sor wordt daarom wel eens een 8/16 bits 
processor genoemd. De 8086 is een 8088 met 
een 16 bits databus en is dus een echte 16 
Mtl«ir. In de artlkelenreeks van Nlco de 



Vries wordt de 8088 uitgebreid behandeld 
en daarom wil ik niet te veel over deze 
processor vertellen. Het enige waar ik op 
wll l^jsem is het f eit dat de adiresbus 20 
bits breed is. Hoe zit het dan met een 16 
bits program counter, stack pointer etc.? 
Wel, in de vier segmentregisters staat 
informatie waarmee het tot ale adres bere- 
kend kan ^w^ctes^ ° Nemen we als voorbeeld de 
program counter, dait j»Qrdt de Inhoud.van 
CS (Code Segement) vlierlyt'ri «fiaf Ilfiks 
geschoven (vermenigvuldigd met 16) waarna 
de inhoud van de program counter (IP) hier 
bij opgeteld wordt. Op deze manier ont- 
staat een adres van 20 bits. De hele pro- 
ces'sor ireffct ififp dfie?' watiiterw' ##k"in de 
adresseermethoden wordt deze segmentering 
uitgebreid gebruikt en ik ben er van over- 
tuigd dat Nico hier nog op terug zal ko- 
men. 

Dan als laatste de processor die bij mij, 
met de 6502, favoriet is: de 68000. Deze 
processor is weergegeven in figuur 3. 

Deze processor heeft registers met een 
breedte va,u 32 bits. Daar de dsitabus Mj 
d®' W©60 t#•^>41^• breed is, IrtfWtN'B «(§ dwB 
spreken van een 16/32 bits processor. 
Verder hebben we bij de 68000 te maken met 
het tegenovergestelde van segmentering. De 
68000 heeft een adresbus van 24 bits. 
Echter, aHe adressen op een 68000 worden 
«»es;f «iE«i*l»>.(gisMfc 3 Z hi ts. Bij de 68000 
worden de hoogste 8 bits gewoon genegeerd. 
De reden dat de 68000 al 32 bits adressen 
heeft, is het feit dat Motorola, de fabri- 
kant van deze processor, al voorzien heeft 
dat er een 68000-achtige processor zou 
komen waarblj Vel de 'r^ftdige 32 bits 
adresruimte gebruikt wordt. Deze processo- 
ren zijn er inderdaad gekomen, de 68012, 
68020, 68030 en het jongste familielid de 
68040* Al deze processoren zijn zo ontwor- 
pen itot^ pwogramma's die lopen op de laag- 
i*# processor in de famllie (de 68008) 
zonder enige modlflcatie ook lopen op de 
meer geavanceerde typen. Dit heet "Upwards 
Compatible" en is in de 68000-f amilie zeer 
ver doorgevoerd. 

eoed, de 6800^ is €Me ^s±tgermt met 8 data 
registers met een breedte van 32 bits die 
allemaal gelijk zijn en ook allemaal de- 
zelfde functie hebben. Verder heeft de 
68000 9 adresregisters van 32 bits. Hier- 
T«fi staan er 7 volledig t^je fetfffcikking 
van de gebruiker. A7 gedraagt ziidh ook als 
normaal adresregister maar wordt verder 
ook gebruikt als stack pointer. Bovendien 
is dit register dubbel uitgevoerd. Mode me 
processoren keanen name 11 Jk ateerdere toe 
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standen wsarin de processor kan verkeren* 
Blj de 6iO0O zf Jti dat et twee; Vset 
en Supervisor mode. De omschakeling ge- 
schiedt door het wijzlgen van de S-vlag in 
het status register. De user en supervisor 
mode hebben elk hun eigen stack pointer en 
dus krijgt eett frogramma in supervisor 
mode een ander register A7 voorgeschoteld 
dan een programma in user mode. Een opera- 
ting systeem loopt meestal in supervisor 
mode, een gebruikersprogramma bijna altijd 
in user mode. 

Be adres registers afljn bedoeld voor het 

uitrekenen en onthouden van adressen, de 
data registers voor het manipuleren van 
data. Aparte index registers kent een 
68000 nlet. Zowel adres als data registers 
k!ttni»e« mis Indeii gvlirulkt worden* if | 
lespreking van adresseenaethoden komen we 
hier nog op terug. 

Er zijn in de behandeling van adres en 
data registers uiteraard verschillen. Het 
meest opvallende verschil is wearschljn- 
lijk wei d'at In data registers elementen 
van 8 bits (bit 0 t/m 7) of bytes, elemen- 
ten van 16 bits (bit 0 t/m 15) of words en 
elementen van 32 bits of long words bena- 
derd kunnen worden. In adres registers 
ki^imem alleem words en long words ieffiCierd 
worden. Bovendien worden bij een data 
register alleen die bits veranderd die ook 
daadwerkelijk (bij byte of word operaties) 
veranderd worden. In een adres register 
Wordt bij een word operatle het andere 
word (bit 16 t/m 31) geheel gevuld met bit 
15 van het veranderde wofd. Beze laatste 
operatie wordt ook wel Sign Extension 
genoemd maar dat mag u van mij met een weer 

"M'et status register kent een zogenaamd 

User byte waar de X, N, Z, V en C vlaggen 
in zitten en een system byte met daarin de 
T-vlag, de S-vlag en een drietal vlaggen 
die het interruptniveau van de processor 
aang»V#n. De functie van de N, Z, V en C 
'«rlaggen Is gelijk aan die bij de 6502. De 
X-vlag is ook een soort carry en heet de 
extended vlag. De S-vlag geeft aan of de 
processor in supervisor mode verkeert. De 
T-vlag geeft aan dat de processor na elke 
Instructle eem Ijaterrupt (exception blj de 
§§0W| uit moet voeren om bijvoorbeeld het 
verloop van het programma met een ander 
programma (debugger) te kunnen volgen. De 
68000 kent zeven niveaus van interrupts 
die met behulp van de I- vlaggen al dan 
iiiet f e«etl'!f«seii tuxPMifi wordeu. 



Bij de bespreking van de programmeermodel- 
len is een aantal keren het woord 
"Interrupt" gevallen. Bij de 68000 werd 
zelfs de term "Exception" gebruikt. Ik 
denk daife'let"w»l Of* zlja flm^a Is even in 
het kort aan te geven wat hier mee bedoeld 
wordt . 

Bij het bespreken van interrupts kunnen we 
het beste een processor in gedachten nemen 
die eem programma ultvoert. Plotsellmg 
gebeurt er lets in de omgeving van de 
processor waardoor er eerst even lets 
anders moet gebeuren. Een mooi voorbeeld 
hiervan is het feit dat de bedieningsman 
een toets op het toetsenbord Ingedrukt 
li>§ft4^6 f i&iikeeMti stoptldatt m-t'mm matt le 
uitvoering van het programma waar hij mee 
bezig was en voert eerst een ander pro- 
gramma uit waardoor de ingedrukte toets 
ingelezen wordt en het overeenkomstige 
teken ergens in het geheugen weggeschreven 
wordt. Daama gaat de processor veXjdl? met 
het programma waar hij mee bezlg was em op 
de plaats waar hij onderbroken (gelnter-- 
rumpeerd) werd. 

Het bovenbeschreven geval Is een echte 
interruij'lt'*''"S'0'or een exkmwm^ g«:teiuxt:e&l8 

faat de processor eerst lets anders doen* 
et kan ook zijn dat we de loop van het 
programma willen onderbreken door een 
interne gebeurtenis. Dit zou bijvoorbeeld 
het delen door nul In een deel-routine 
kunnen zijn. Al^le processoren die Ik ken 
helsheii hiervOOT of meer zogenaamde 
break of trap instructies. Ook hier wordt 
het lopende programma even onderbroken 
voor de uitvoering van een ander program- 
me. Na _aflQop van dit prpgramma kan de 
processo'r Verder gaan met le uitvoering 
van het oorspronkelijke programma, tenzlj 
het interrupt-programma dit verhindert 
heeft (wat bij delen door nul meestal het 
geval zai zijn). 

Tenslotte kan het, vooral blj de 68000, 
voorkomen dat de processor iefes tegenkomt 
dat verboden is. Ook dan kan de processor 
een exception uitvoeren. Een specifiek 
voorbeeld voor de 68000 is de volgende: 

Blj de 68000 kunnen met g§n instructie 
operanden van 8, 16 of 32 bit behandeld 
worden. Nu is het zo dat alleen 8 bit 
operanden op een oneven adres benaderd 
kunnen worden; de andere operanden moeten 
op een even adres benaderd worden. Wordt 
nu vanult een progranma toch een 16 bit 
operand op een oneven sdr^s benaderd, dan 
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wordt de zogenaamde ''Addres error" excep- 
tion uitgevoerd die het lopende programma 
met een foutmelding hoort af te breken. Ik 
heb begrepen dat de beroemde Atari ST lets 
minder vriendelijk is en zichzelf onder 
het tonen van enkele bommen (3 ?) ophangt 
doch dlt Is, gezien de mogelijkh^dea van 
de processor niet noodzakelljk. 

Op interrupts en de bijbehorende vlaggen 
in het status register komen we in de loop 
van deze serie nog terug. Vooralsnog denk 
Ik dat het begrlp interrupt in voldoende 
mate ultgelegd is. ^' • ' 

De Stack en de Stack pointer 

In deel drie van deze serie hebben we het 
41 even over de stack gehad. Het lljkt me 
goed daar opnleuw een kleine paragr^Glf am) 
te wijden omdat het begrip "Stack" dermate 
belangrijk is in een computer dat Ik er 
zeker van wll zijn dat de lezer hier goed 

mm mwi^mmSi -m^*-- ^. . k. 

Zoals al Is aangegeven, kan men eefi fl%a<*k 
(of stapel In goed nederlands) het beste 
verge 11 jken met een zogenaamde memoprikker 
waarvan in deel drie een plaatje opgenomen 
was. In flguur 4 Is ook een stukje stack 
getekend met da4i#®p dingen die we maar 
even aan zullen geven met "Rood", "Groen" 
en "Blauw". Verder zijn er op de stack nog 
een tweetal vrije locaties beschikbaar. De 
Stack pointer wijst, zoals bij de 6502, 
naar de eerste vrije locatle op de stack. 
De baslselgenschap van een stack Is dat we 
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alleen aan de bovenkant elementen toe 
kunnen voegen of er af kunnen halen. Als 
we, du.8 het ^jpim^aS.. "gmVLm 4t «t*ek 
allien tettetLy dan trordt dlt elenent In de 
locatie die door de stack pointer wordt 
aangegeven geschreven waarna de stack 
pointer met ^ verlaagd wordt. (Een stack 
loopt dus van hoog adres naar laag adres). 
Willen we hlerna de elementen "Geel" en 
"Rood" van de stack afhalen, dan wordt 
eerst de stack pointer met ^ka verlaagd 
waarna het element "Geel" vanaf de stack 
gekopieerd wordt naar waar we hem willen 
hebben (meestal een reglit-eis). Daarna 
wordt de stack pointer weer met §§n 
verlaagd en wordt het element "Rood" 
gekopieerd. 

In computer j argon beet het op de stack 
zetten van lets een "PUSH", het van de 
stack afhalen een "POP". Dus iii eiem 
voorbeeld: 

Push " 1) Kopieer het element naar de 
locatie aangegeven door de stack 
pointer. 

2) Verlaag de stack pointer met 
€6n. 

Pop =1) Verhoog de stack pointer met "Ski 
2) Kopieer de de inhoud van de 
locatie aangegeven door de stack 
pointer. 

Blj de 68000 wijst de stack pointer niet 
naar de eerste vrije locatie maar naar de 
laatste gevulde locatie. Bii de push en 
pop moeten dus staf J «m, C ^gwd^aalid 
worden. , . 

Waarvoor wordt de stack gebrulkt? 

in de eerste plaats wordt de stack ge- 
bruikt om de inhoud van registers tljde- 
11 jk even ergens weg te schrljven zodat we 
die registers voor lets anders kunnen 
gebrulken. De stack wordt dan dus als een 
soort kladblok gebruikt. Als we de gege- 
vens dan weer nodig hebben, kunnen we ze 
i^t. van dt. '«|^ll'|Afiyi#^;^. . > 

In de t«eede ptmtiif kti hit Is traafschijn- 
lljk het meest belangrijke, wordt de stack 
gebruikt voor het onthouden van het 
return-adres van een subroutine (twee 
nleuwe begrlppen in §§n zin). Ik zal dat 
net behulp van een voorbeeld proberen ult 
te leggen. 

Stel we willen een programma maken dat 
mljn naam afdrukt. Dat zouden we op de 
volgende nanler kunnen doen: 
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- Sefcrijf in een register "G" 

- Druk de Inhoud van het register af 

- Schrijf in een register "." 

- firuk de imhouid "van b&t. wmd.BtBW af 

Bet vullen van een register met een letter 
iM simpel. Alle processoren hebben hier- 
vOor een Instructie. Het afdrukken van de 
inhoud van een register is veel moeilij- 
ker. Hiervoor zijn over het algemeen meer- 
dere Instructies nodig. Om nu voor het 
afdrukken van "G. van Opbroek" voor elke 
letter weer die hele lijst instructies in 
het progranma neer te zetten is natuurlijk 
onzin (Mijn stelregel is: Als het ingewik- 
keld is of er moet heel veel voor ingetikt 
worden, is het niet goed). Hiervoor zijn 
de zogenaamde "Subroutines" uitgevonden. 
Dit zijn stukjes programma die een bepaal- 
de taak hebben. In ons voorbeeld is dit 
4|tS een @ti«kje ^meMi^mm d«t de inhoud van 
efeft^ifeglste't afat^t. Bft stukje programma 
nemen we slechts Sai keer in het programma 
op en iedere keer dat we hem nodig hebben, 
springen we naar dat stukje programma. 
Nadat we de instructies van de subroutine 
uitgevoerd hebben, springen we automatl6eh 
weer terug naar de plaats in het programma 
vlak na de sprong naar de subroutine. 

De sprong naar de subroutine heet "Subrou- 
tine Call", de sprong terug "Return". 

Hoe weet de processor nu waar hij verder 
moet gaan? Welnu, dat is zeer eenvoudig, 
hij schrijft bij de subroutine call de 
inhoud van de program counter op de stack 
ep, bij de return haalt hij de inhoud van 
<<fe progra* counter •weie'rVatt 'de ^tack. Bij 
de 6502, met zijn 16 bits program counter 
en zijn 8 bits databus gebeurt dit uiter- 
aard in twee slagen. Eerst wordt het hoge 
byte op de stack geschreven, daarna het 
lage byte. Bij de 6502 staat altijd het 
hoogste byte van objecten met een lengte 
van meer dan g&i byte op het hoogste 
adres. Bij de 68000 is dit net andersom; 
daar staat het laagste byte op het hoogste 
adres* 

In f^jLpur^^S ls^.c±ematliy^^isen progriigo^'iiit 

Hoe gaat het nu met een programma dat een 
aanroep van een subroutine doet die daarna 
zelf ook weer een subroutine call doet? 
Wei, daar bij een stack alleen het boven- 
ste element benaderd worden gaat alles 
automatisch goed. Kijk maar in figuur 6. 
Het kan zelfs nog erger. Vaak wordt in een 
subroutine er eerst voor gezorgd dat de 
registers die in die subroutine gebruikt 



worden bewaard blijven. Dat doet men dan 
door de Inhoud van deze registers bij de 
fttart meteen op de stack te schrljven en 
vlak '^ooT de return weer van de stack af 
te halen. Dit gaat allemaal goed, zolang 
alles wat in een subroutine op de stack 
geschreven wordt er binnen die subroutine 
ook maar weer vanaf gehaald wordt. Ten- 
nlmtt^ 'kmi hmt zelfs nog voorkomen dat een 
sui|.|r®tttrfiir'«ich zelf aanroept. Het pro- 
grafflma "Torens van Hanoi" dat als voor- 
beeld aan dit artikel toegevoegd is, is 
daarvan een voorbeeld. Als een $ubroutine 
zich zelf aanroeft, heet diat recursie. 

In de derde plaats wordt een stack ook wel 
eens gebruikt voor de overdracht van para- 
meters aan subroutines. Deze toepassing 
vlndt men vooral in hogere programmeerta- 
len. In het hovengenoemde voorbeeld wordt 
de le4?tei^' tills' itge'd^ttfet utttfef^orden in een 
register doorgegeven. In hogere program- 
meertalen gebeurt dit vaak ook door voor 
de subroutine call eerst deze letter op de 
stack te schrijven. De door mij gepubli- 
ceerde floating-point wmf&^ werken vol- 
g«as dit ttechanlsme. 

Tenslotte speelt de stack ook een rol bij 
interrupts. Ingeval van een interrupt 
wordt ook het return-adres op de stack 
geschreven plus het status register. Af-^ 
tetkelijk van het processortype kunnen nog 
meer zaken op de stack geschreven worden. 
De 6502 volstaat met het status register 
en de program counter. Het interrupt pro- 
gramma moet er dan voor z<»rf,en dat de 
registers na de inteinrupt weer dezelfde 
ic^oud hebben als er voor. In het algemeen 
wordt dit gedaan door de registers in het 
interrupt programma ook op de stack te 
schrijven en vlak voor de return from 
interrupt ze weer terug i« Ijgi^to, 

Adresseer aogelljUieden 

Nu wel alles over de stack weten, wordt 
het tijd zo langzamerhand eens te kijken 
op welke manier een processor zijn j;e.g»- 
'imm hmadexti* Zmla ml Mkead, ssijn er in 
d€ preeessor Instructies die verder geen 
data nodig hebben (Clear Carry) en in- 
structies die op data werken (Haal de 
inhoud van adres xxxx op). In het algemeen 
kan men stellen dat er instructies zijn 
met 0 oper anden (Clear carry) 1 operand 
(haal -xsaex op) en 2 operanden (tel xxxx en 
yyyy bij elkaar op). Bij de 6502 is bij 
instructies met twee operanden de tweede 
operand altijd de accumulator. Bij de 6502 
bestaat een opdracht voor de processor dus 
altijd uit de (q>code en 0 of 1 operand. De 
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68000 daarentegen kent instructles met 0, 
1 en 2 operandeti. 

Laten we vooralsnog uitgaan van de 6502. 
De 6502 kent de volgende adresseermoge- 

1. Iitraedlate adresserlng. 

In dit geval staat in het programma achter 
de opcode de waarde van de operand. Dit is 
dus het geval: Zet het getal $12 in de 

LDA #$12 

In het programma staat dan het volgende: 

$A9 ; Opcode voor LDA # 

$12 ; De operand 

Dit is op de 6502 dus een instructie met 
een lengte van 2 bytes. 

IiilBieitate adressering wordt at^dgegeirett 
door een (Hash). 

2* Absolute adresserlng* 

Bij abSiioltite ad¥®#iBering wordt de opcode 
in het programma gevolgd door het vol- 
ledige adres waar de operand te vinden Is. 

Een voorbeeld van deze methode is dus: Zet 
de inhoud van locatie $1722 in de accumu- 
lator: 

LDA $1722 

In het programma vinden we dan: 

AD ; Opcode voor LDA absoluut 

122 ; Lage byte n^ftn het adres 

$17 ; Hoge byte van het adres 

Ms er nu in adres $1722 het getal $12 
staat, dan staat er na uitvoering van de 
instructie veer $12 In de accumulaiitto 

1 Z'Mmtf dat dese l&»tructle een lengt« 
heef t van 3 byte. 

3. Zero page adresserlng. 

Blj de absolute adressering hebben we 
gezien dat we voor een opdracbjE 3 byt.es 
nodig hebben. Dit kost bij veel"raldlg 
gebruik vrij veel geheugenruimte en maakt 
het programma bovendien langzaam. Bij de 
6502 heeft men besloten voor adressen 
mmMvm bet hoge byte $00 (dus paglna 0) 
bevat een aparte adresseefiBefkiide lA te 



voeren. Men laat gewoon het hoge byte van 
het adres ifiegi 

LDA $0015 

A5 ; Opcode voor LDA op page 0 

$15 ; Ii^ge Ifte van adres 

Kortom deze adresseemethode Is '33% korter 
en daarom 25 % sneller. Helaas kunnen er 
slechts 256 byte op deze manier benaderd 
worden. 

4. Relatleve adresserlng* 

Blj de 6502 is de relatleve adresserlng 
alleen beschikbaar bij sprongopdrachten. 
Straks bij de 68000 zullen we zlen dat we 
daar veel meer mogelljkheden met relatleve 
adresserlng hebben en dat we daarmee zeer 
f raale' dlttgen ktitmen doen. 

In een programma willen we vaak afhanke- 
lijk van het resultaat van een opdracht 
naar een andere plaats in het programma 
sprlngen. Dit doen we dan met de zogenaait- 
de spronglnstructies of branches. Zo zljn 
er bij voorbeeld sprongopdrachten voor een 
resultaat 0 of als de laatste bewerking 
een overflow opleverde. Bij een sprong 
wordt de Inhoud van de program counter 
zodanlg veranderd dat de volgende Instruc- 
Ti/iS nlet van het adres volgend op het 
laatst gelezen adres in het programma 
gehaald wordt maar op een andere plaats. 
We kunnen dit adres in absolute waarde 
opgeven (dus absolute adressering) maar 
beter Is het het verschll tussen de oude 
en de nleuwe waarde van de program counter 
op te geven. Bij de 6502 wordt dit ver- 
schll in de vorm van §§n byte in het 
programma opgenomen. Op deze manier kan 
men over een af stand van 127 byte naar 
voren of over een afstand van 128 byte 
terug sprlngen. Wll aren verder sprlngen, 
dan moet men gebruik maken van absolute 
adressering. Bij de 6502 zijn alle condi- 
tionele sprongen (sprongen die afhankelijk 
zlin van vlaggen in het status register) 
Siglttia^l jiml»r0utlne call en de nlet 
condittonelt iftong Is absoluut. 

Behalve het feit dat relatleve adressering 
korter is dan absolute, is er nog het 
voordeel dat men nlet hoeft te weten wat 
het absolute adres Is van de plaats die 
tiftf Ijillitdif**; 'WEf jim '§BOm fs 1*et op 
deze manier mogelijk programma's te 
schrijven die onaf hankelijk van de plaats 
waar ze in het geheugen neergezet worden 
zonder §§n wijzlglng correct zullen 
draalen. Een dergelljk programma heet 
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"Position Independent". Helaas biedt de 
6502 deze mogelijkheid alleen voor 
sprongen en niet voor bijvoorbeeld de Load 



Het adres van de operand is dus 



5. Implied adresserimg " 



groot aantal instructies kent geen 
operanden of het is bijvoorbaat duidelijk 
waar ze op werken. Voorbeelden hiervan 

zijn instructies waarmee vlaggen in het 
status registers gewijzigd kunnen worden. 

In de tweede plaats zijn er bij de 6502 
mt 'i'^9k^^1tmM-'mW'''mtWl%%terid op de 
accumulator werken zoals bijvoorbeeld een 
aantal schuif-operat ies. Ook dit is een 
voor van implied adressering; in de opcode 
staat aangegeven dat de instructie uitge- 
voerd moet worden op de accumulator. Bij 
een 68000 heeft men hiervoof , Sle rej4.^Jter 
adressering gedef inieerd, bll^Jfe 65® Jfee^ 
het ook vel accumulator adte«l^inf« 

Bij de 6502 bestaat een instructie met 
Implied adressering altijd uit 1 byte, de 
opcode. 

6. Geindexeerde absolute adressering. 

Zoals al uit het programmeermodel gebleken 
is, Mm''^M' tS©f efeft tweet a 1 index regis- 
ters, aangegeven met X en Y. Bij de gein- 
dexeerde adressering spelen deze registers 
de hoofdr#l* 

In de eerste plaats kennen we de gein- 
dexeetie absolute adressering. In dit 
geval wordt de opcode In teef frogramma 
gevolgd door een absoluut »dtes van 2 
byte. Op dit adres hoef t namelljk niet de 
operand te staan. Afhankelijk van het feit 
of de X-geindexeerde of de Y-geindexeerde 
mefhode gefe«lik««, wordt de inhoud "iJfJii'flit 
X resp. het Y register bij dit adr«S. Oj^* 
teld. Op deze manier krijgen we hm. 
ttigt:^'. i^fip^i^ f oorbeeld: 



4dres 

$1200 
$1201 
$1202 
$1203 



Data 

$10 

$11 
$12 
$13 



Inhoud X : $02 



Programma: 

LDA $1200, X 

BD 
$00 
$12 



Opcode voor LDA ,X 



$1200 + 101 - 



en in de accumu] 
$12 te staan. 



Met behulp vam geindexeerde adressering 
kan men op eenvoudige wijze datastructuren 
benaderen. In het index-register komt dan 
de relatieve positie van de operand ten 
opzichte van de start van de structuur te 
staan en in het programma zet men het 
startadres van de datastructuur. Het uit- 
printen van mijn naam zou in 6502 assem- 
bler er dan bijvoorbeeld als volgt uit 
kunnen zlen: 



LUS 



LDX #0 
LDA Nm,X 
BEQ Bind 
JSR Print 
INX 

JMS LUS 



Bind 



Nm 



.BYTE 



Start op relatief adres 0 
Haal het teken op 
Teken » 0; ga haar eind 
Druk het teken af 
Volgende teken 
Begin vm v««p« ,of fpi|. , 



'G. van Opbroek',0 



7. Geindexeerde Zero Page adressering 

Geindexeerde adressering is bij de 6502 
ook mogelijk met adressen op pagina 0. Net 
als bij de Zero Page adressering wordt ook 
nu weer het hoge byte van het adres niet 
in het programma opgenomen en bee£t mn^ 
een rulmtebesparing van 33%. 

8. Indirecte adressering. 

Bij de indirecte adressering staat in het 
programma een adres. Op dit adres staat 
weer #eii adres en op dat adres vinden we 
de operand. Dus het geval: Ga naar bosweg 
13 en vraag daar waar D. Ata woont. De 
6502 kent alleen zuivere indirecte adres- 
sering bij de niet conditionele sprongop- 
draeMtji iM JMP of jump-instrui^tt* , 

V«forbeeld; 



1000 JMP($A000) 

1000 6C , 

1001 $00 

1002 $A0 

AOOO $22 
AOOl $17 



; Opcode voor JMP () 
; Lage adres byte 
; Hoge adres byte 

; Lage adres byte 
; Hoge adres byte 



Vanaf adres AOOO wordt nu het adres 1722 
ingele:2«n em dilC ^i^tdt de nletMNg ^sayie 
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Visa ie ^xogesm cmmtstm 

9'* laiflixeete geindexe^rde adresserlng. 

Deze en de volgende adresseermethoden zijn 
uniek voor de 6502. Behalve een indirectie 
wordt er ook nog een Indexerlng uitge- 
voerd. De indirecte geindexeerde adresse- 
ring en ook de geindexeerde indirecte 
adressering zijn zeer krachtig maar daar- 
door ook tamelijk ingewikkeld. 

Laten we met de indirecte geindexeerde 
adrsBsering beginnen. Hiervoor wordt ten 
alle tijde het Y register als r6gis^ 
ter gebruikt. 

In het programma staat de opcode en f^en 
lilies op pagina 0 (twee byte dus)> Op 
pagina 0 staat in het aangegeven en het 
volgende byte een absoluut adres. Door nu 
bij dit adres de inhoud van het Y register 
op te tellen vinden we de plaats waar de 
operand staat. Ik hoof Idt een voorbeel^ 
het duidelljker maakt want zoals het er 
staat Is het correct maar nog steeds Inge-* 
wikkeld* 



10. Geindexeerde indirecte adressering. 

Deze methode lijkt heel veel op de vorige 
maar toch zijn er essentiele verschillen. 
In de eerste plaats wordt nu nlet register 
Y als Index gebru|.Jftj^mj4x roister X. 
lo^rewdlem wotrdt ie -^vli^mm filexerlng 
en Indirectie ongedraaldf , • 

In de instructie staat weer een adres op 
pagina 0 (weer twee byte dus). Bij dit 
adres op pagilj* 0 wordt de inhoud van het 
X-register opgeteld. Dit levert weer een 
adres op pagina 0 op. Op dit adres staat 
het adres van ^ iB^mmoA* ■ .'M^. p&t een 
voorbeeld: 

Adres Data 

$0010 $00 liibmi X; f x® 

$0011 $11 

$0012 $00 

$0013 $A0 

$^QQ $12 
Instructie: 



Adres Data 

$0007 $10 Intemd ts $12 

$0008 $00 

$0009 $A0 

$000 A $20 

$A010 $10 

$A011 $11 

$A012 $12 

$A013 $13 

Instructie: 

1000 LDA ($08), Y 

1) In de instructie staat een adres op 
pagina 0. Dit Is dus adres $0008. 

2) Op dit adFe# iti&iit bei^ mi «««tir ^dir^is 
$A00O (Indirect). 

3) Tel bij dit adres de inhoud van Y op. 
Dus: $A000 + $12 = $A012 

4) Op dit adres vinden we datgene wat naar 
de accumulator moet, dus $12. 

Ook deze adresseer-methode is zeer ge- 
schlkt voor het benaderen van data-struc- 
turen. Op pagina 0 onthoudt men het start- 
adres waarna men In het index register de 
relatleve posltle aangeeft. 



LDA ($02,X) 

1) In de Instructie staat een adres op 
pagln» 0. D^t if a4l«# l$002* 

2) Tel bij dit adres de inhoud van X op. 
Dus: $0002 + $10 = $0012 

3) Op dit adres staat een nleuw adres dus 
$A000 (Indirect). 



4) Op dit adres vinden we datgene wat naar 
de accumulator moet, dus $12. 

Samenvattlng 6502. ...<.■ 

De 6502 heeft een zeer beperkt aantal 
registers. Eigenlijk Is er maar S|i regis- 
ter voor algemene doeleinden 'befr^hlltiifir. 
Verder heeft de 6502 slechts een beperkt 
Instructieset van 56 instructies. Toch is 
de 6502 waarschijnli jk de meest krachtige 
8 bits processor, hoe komt dat? In de 
eerste plaats heeft de 6502 wel weinig 
instructies maar dit instructieset is 
afgewogen en men kan er echt alles mee 
doen. Bovendien is de uit voeringstijd van 
de instructies relatief kort. Een tweede 
punt zijn de adresseer-moge 1 i jkheden. 
Vooral de indirecte geindexeerde en de 
geindexeerde Indirecte ffiogellfkheld zijn 
uniek voor de 6502 een zeer krachtig. Een 
derde punt is de Zero Page adresseer moge-" 
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lijkheid. Ook dit is . niek. voor de 6502. 
]|iigetilljk kan men zeggen dat de #$61 over 
259 registers beschikt in plaats van 3. 
Zelfs de 68000 steekt hierbij met zijn 31 
registers maar schamel af. In mijn artikel 
over Rise en Cisc (6502 Kenner nr. 57) heb 
ik aangegeven dat de 6502 qua ontwerp toch 
heel veel weg heeft van de moderne Rise 

De 68000. 

De 68000 is een heel andere processor als 
i« #S#i.'T«8 lie*ft Mj meer regis- 
ters maar in de tweede plaats zijn er 
slechts twee typen registers: Data regis- 
ters voor data en adres registers voor 
adressen. De 68000 kent dus bijvoorbeeld 
geen speciale index registers. Odk bet 
iastcuctiesel; vm de 6800Q Is veel omvang- 
*ljker als die van de 6502. Ik programmeer 
wel sens de ene dag de 68000 en de volgen- 
de dag de 6502. Ik mis dan constant in- 
structies. Maar alia, er liggen ruim 10 
jaar tussen de ontwlkkeling van de 6302 en 
Ale-wm idteiiii@i';.'«>gen ec . diai >vef!t«Mllen 
zijn? 

Ik wil in het kort ook nog even de adres- 
seer methoden van de 68000 de revue laten 
passeren. De 68000 kent in zij» ln»tTuc- 
ties 0, 1 of 2 operanden. Als er operanden 
zijn, dan worden deze aangegeven met een 
zogenaamd effectief adres. Dit is een code 
waarmee de processor uit kan zoeken waar 
hij de operand kan vinden. Als er twee 
Ojieranden zijn, daft aljn er ook twee ef- 
fectieve adre«8ett et^titeir ftieestal zul],«it 
niet alle adresseer-moge li jkheden biij 
beide operanden toegestaan zijn. 

Verder kent de 68000 niet de LOAP-instruc- 
tie zoals tot nu toe al8> vdorbeeld 
gebruikt werd. De 68000 kent de MOVE- 
instructie waarmee men data (bytes, words 

en long words) van het ene efectieve adres 
naar het andere kan verplaatsen. 

1, D,ata reftatei^ direct. 

De operand Is een data register. 

2* Adres register direct. 

'Sb is een adres register. 

3. Adres register indirect. 

In een aangegeven adres register staat het 
adres van de operand, lit is dus recht- 
ttfiBgiils verge li^khaar aieft de Indirecte 
adressering hi J de €562 met dit verschil 



dat het indirecte adres niet in geheugen 
maar in een register staat. 

4. Adres register indirect met post incre- 
Aent . 

Bij deze methode wordt, nadat de operand 
benaderd is de inhoud van het adres regis- 
ter verhoogt met de lengte van de operand. 
Deze mode wordt ondermef f g|fii;gli,j06t| f%it 4e 
POP van d^ stack: 

MOVE.B (A7)+,D0 

haalt een byte van de Sfi&cfe €n Sc&rljft 
dit in DO. Evenzo: 

waarmee een adres va« d« mtM£k gehaald 
wordt . 

NB. De mode van de firjee4# @f utAnd is in 
het eersBte v^orlieeid lata »ft]p.ater afreet 
en in het ttreede voorbeeld adres register 
direct . 

5. Adres register indirect met pre-decrer 
ment. 

Dit is het tegenovergestelde van de post 
increment en kan bijvoorbeeld voor de PUSH 
op de stack gebruikt worden. Ook kan men 
met de post increment en pre dreeement 
modes geheugengebieden op eeairottiigii '■tm- 
nier kopieren: 

Neem in een lus de volgende instructie op: 

MOyE.B (A0)+,(A1)+ 

Als AO bij de start naar het gebied waar- 
uit gekopieerd moet worden en Al naar het 
gebied waarna gekopieerd moet worden 
wijst, dan kan men op deze manier zeer 
snel kopieren. Weet men zeker dat men een 
even aantal bytes moet kopieren, dan kan 
men ook nog gebruik maken van de 16 bits 
databus door te «eteeljven: 

MOVE.W (A0)+,(A1)+ 

6. Adres register' tmltf tet met lisplace- 
ment. 

Bij deze methode wordt een 16 bits con- 
stante opgeteld bij de inhoud van een 
^Msngegeven adres register. De sou van deze 
twee geeft het adres van de operand. 

7. Adres register indirect met index 



41 



Algemeen 



Bij deze mode wordt het echt ingewlkkeld. 
In de instructie staan twee registers 
genoemd en nog een constante van 8 bits. 
De constante loopt due van -128 tot + 127. 
De benaderlng van de operand Is nu als 
volgt : 

Neem de Inhoud van het adres register 

Tel hierbij de Inhoud van het tweede 
register, het index register op. 
Hierbij kan men ook nog kiezen of men 
het hele register bedoelt of alleen 
de laagste 16 bits. 

l^&*ltt bij het resultaat 4^ $ 
bits constante nog ee&s ispgeteld> 

Tenslotte vindt er een indirectie 
pi#aits waarblj het resultiaat ult de 
fiiigb stiif> itel asdres van de o^mEsioii 

ffi't li 'te*^ vWtgelijken met de Zero page 
adresserlng van de 6502. Alleen is hier 
het short adres 16 bits en zou men dus 6A 
kB op deze manier kunnen benaderen. Van- 
wege het feit dat van een 32 bits adres 
slechts de laagste 24 bits daadwerkelijk 
gebrulkt worden, wordt dlt gebled geredu- 
ceerd tot 32 kB. 

9. Absolute Long. 

Dlt is normale absolute adresserlng waar- 
feij het volledige 32 bits adres In het 
firograama opgenomen Is. 

10. Program cotmter met displacaoeat. 

Bit is de relatleve adresserlng van de 
6502. Op deze manier kan men 32 kB va^naf 
de program counter terugkljken en If fel 

Niet alleen bij sprongopdrachten maar bij 
bljna alle Instructles kan men van deze 
mogelljkheid geblrvi^ '"^lil^es* Als «e ook Sm 
variabelen in het progriEaama op deze manlet 
benaderen, dan hoeven we tijdens assemble- 
ren niet te weten waar precies de variabe- 
len terechtkomen. Bij de uitvoerlng van 
het programma is uiteraard de prog#ll« 
counter bekend en de variabelen staan op 
een bekende af stand van de program coun- 
ter. Op deze manier kan men dus een pro- 
gramma willekeurig in het geheugen neer- 
zetten zonder dat er lets aan het program- 
ma gewijzlgd hoef t te worden. Systemen 
waarVij meerdere pti^raiBia^e gell|ktijd^ 



in het geheugen staan en die om beurten 
een stukje programma uit laten voeren 
(multl tasking) el sen meestal 4«l asm deze 
voorwaarde voldaan Is. Vtm ■'dm. tilge^ 
naamde Posltle-onafhankelijke code. 

11. Program counter met index. 

Oeze metkdde is gelijit Ajia 4^ ttHf lt^de 
Adres register met index met dlt verschll 
dat de program counter als uitgangspunt 
gebruikt wordt in plaats van een ander 
register. Ook deze methode wordt gebrulkt 
bij ipoBitie^miiSmtlkmMiM mSM* f 

12. Immediate adi^sierlng. 

Deze mode wljkt niet af van de immediate 
mode bij de 6502. 

15 m Tegi8e#r « 

Heeft de 6502 instructles om afzonderlijke 
vlaggen te benaderen, de 68000 gebruikt 
hlervoor standaard instructles zoals ORI 
en AND! (OR iomedl^atW) AND immediate) ai»t 
een aparte adresseer mogelljkheid. 

Samenvattlng 68000. 

De adresserlng bij de 68000 is op een 
aantal ppnten veel ingewlkkelder dan die 
^rmtt de-6502. Om al le bescttilflpa*«" moge- 
lijkheden zinvol in te kunnen zetten is 
een vrij ruime ervaring nodig. Ook het 
inst ructieset van de 68000 is veel om- 
vangrljker dan die van de 6502. Hij is zo 
omvangrijk, dat er 4 manleren zijn om 
een data register met nullen te vullen. 
Welke manier in welke sltuatle de meest 
zlnvolle is, zou ik ook niet weten. Toch 
heeft de 68000, ook als men niet op de 
meest efficlente manier met z'n mogelljk- 
heden omgaac^ voor ml J z'n qharme* De 
voordeiernt' tile Ik voorai zle ten i&ptltMfe. 
van de 6502 zijn het grote adresberelk, 
het aantal registers en de universele 
MOVE-instructie. Verder ligt de architec- 
tuur van de 68000 redelljk dicht bij de 
archltectuur van de PDP-ll en de VAX van 
de firma DEC; machines waar ik t:4Jd#ili 
mljn opleldlng resp. mljn beroep veelwul* 
dig mee te maken heb gehad en heb. 

Mslultlng 

Ik hoop dat de Ighi^d dit a^lkel «eer 
enigzlns over gekcsmen is en hoop in august 
tus weer verder te gaan. Tot dan 

Gert van Opbroek 
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De IBM-PC en z'n kltmen (Peel 

Poor: f{£@#: fa^fdS'. 



In dit deel gaan we vender met de hardwaxebeschrijving van de PC(/Xr), aan de hand 

In principe is het met de infowtatie uit deel 3 



¥10 



■al te tekaien. Hier komt het dus: 
4.1. Het blokschema van hftt aoederbord 



De processor: intel 8088 OP* '8384 clock generator en 8288 bus coiittrtJtoe ' 
Adresbus (20 bit) Controllnia ^tabus (8 bit) 

~T~ 



A0-A19 



A0-A19 



AO-Al 



AO 



A0-A15 



A16-A19 

AO-Al 



A0-A19 



ROM: 

8kbyte BIOS 

32kt^© BASIC interpr. 



1 



(1) 



RAM: 

64/128/256/640kbyte 
8 databits en 
1 paritybit 



(2) 



8253 timer 
OUTO 



OUTl 
~1Z 



(3) 



825^ ms 




interrupt 




controller 


IRl 




IR2-IR7 



8237 WHk controller 

DRQO 
DEQ1-DBQ3 



(3) 



full 



DMA pagina register 



TE 



lOHR 



8255 parallel I/O 
PortA PortB PortC 



Keyb. 
Int'f . 



T 



Divers 



(3) 



Conf . 
Switch 



I/O slots 

5 in PC 
8 in PC/XT 



full 



full 

(1) 
(2) 
(3) 



volledige controlbus 
MEMRD 

MEMWR en MEMRD, PARITYCHK 
lORD, lOWR 




4 . 2 . Yerderg besohrniwingwi over hgt 

blokschena. 

Aandachtige bestudeerders van het 
blokschema hebben wsiarschijnlijk al iets 
opgemerkt: het nieuwe blokje DMA pagina 
register. Wdftr is dat nu tmeir vmm 

nodig? 

Zoals in het vorige deel reeds 
uitgelegd, kan de DMA controller de 
complete bus besturen. Omdat de DMA 
controller uit.,^e3085-tijd stamt, komt 
hij voor SOSS' wat adreslijnen te 

KpJft: hii iK^t -.fir 'maar' 16. De overige 
t^ler CA16-A1Q1 worden door het DMA 
©agina register gegenereerd, en kunnen 
!|^art worden goed gezet door de CPU. 
leder DMA kanaal heeft zijn eigen pagina 
register. Deze vier registers samen zijn 
ondergebracht in een 74LS670. 

De luidspreker en z'n circuit zijn niet 
getekend, cm het sehmm leesbaar te 
houden . 

Wat verder in het blokschema niet uit 
dif mrt kant, is heti rairiteitsinecha- 
'mtrnm. ©at gaah we nti bitykwi. 

4.3. Pariteitscontrole. 

Zoals al eerder gemeld, vindt er in de 
rc(/XT) pariteitscontrole plaats op het 
dynamische RAM geheugen. Dit gebeurt op 
de volgende manier. 

In het datapad van/naar het RAM is op 
het moederbord een exclusive-OR poort 
opgenomen met 9 ingangen, waarvan er 8 
zajn verbonden met een datalijn. De 
negende ingang is verbonden met de uit- 
gang van het parfteitsgeheugen en wordt 
alleen dporfielafcen als er geschreven 
wordt in het RAM. Deze poort zit in de 
74LS280, op de meeste turbo moederborden 
is dit een 74S280. De 74LS280 heeft twee 
uitgangen, die elkaars complement zijn: 
ODD en EVEN. De EVEN uitgang is verbon- 
den met de ingang van het pariteitsge- 
heugen. (In dit geval worden de Din en 
Dout pinnen van de RAM dus apart ge- 
bruikt, en niet zoals meestal, gewoon 
met elkaar doorverbonden ) . 

De ODD-uitgang is verbonden met de D- 
ingang van een flipflop, die geclockt 
wordt net het MiWRD signaal. Het netto 
resultaat vatti dit alles is: 

1. Als er in het RAM geschreven wordt, 
zorgt de 74(L)S280 ervoor dat er een 
pariteitsbit wordt gegenereerd, zodanig, 
dat het aantal 1-en in het geheugen 
oneven (ODD) is. 

2. Als er in het RAM gelezen wordt en 
de pariteit is nog steeds oneven, dan is 
en EVEN-uitgang van de 74(L)S280 nul en 
klokt de fliprlop een nul in. Is de 
pariteit even geworden,.. ..4an . klekt de 
rlipflop echter 1 iii>.. 

Is de flipflop e&mmX ^^st dan zorgt 
een terugkoppeling van de Q-niet uitgang 
nmr de /PRESET uitgang ervoor, dat de 
flipflop geset blijft. De enige manier 
om de flipflop dan weer te resetten is 
het laagmaken van de CLR-pin. Dit mecha- 
nisane is aangebracht om te voorkcanai dat 



de flipflop door een volgende leesop- 
dracht uit het RAM mogelijk weer ge- 
reset zou kunnen worden . 
Er komt op het moederbord nog een twee- 
de flipflop voor met ongeveer dezelfde 
functie. De D-ingang van deze flipflc^ 
is verbonden met een lijn naar de I/O- 
slots die lOCHK heet, en is bedoeld 
pariteitsfouten in geheugai in 1 van de 
jyO-slots te kunnen deteoteren. 

lEaiLs lo- het vorige deel al uitgelegd, 
taaFHlf© f lipf lops worden uitgelezen 
en gereset via een aantal lijnen van de 
8255 parallelle I/O chip. Verder worden 
twee lijnen van deze chip gebruikt om 
de pariteitsraantrole aan &n uit te kun- 
nen zetten. 

Met deze informatie zal het duideljjk 
zijn waarom de PC een RAM-test MOET 
doen: eerst moeten alle pariteitsbits 
in het RAM goed gezet wprden, Dit wordt 
bereikt door de parlt»itSQ«aitrole eerst 
uit te schakelen en vervolgens het RAM 
te testen. Nadat de test voltooid is, 
woixlen de pariteitscontrole ingescha- 
keld, waama een tweede test volgt. 
Gedurende de tweede test schrijft het 
BIOS de geteste hoeveelheid geheugen op 
het scherm. 

De uitgangen van de lOCHK en de pari- 
teitsf lipf lops zijn niet alleen 
verbonden met de 8255 maar ook via een 
poort met de NMI-pin van de processor. 
Een pariteitsfout of IQCHK heeft ilus 
een NMI tot ge^mgy^W^^-wOaiiM^ mmt 
het vqlgside: 

1. Le«^ lie 8255 uit xm te b^alen of 
het een pariteitsfout op het ncjideitesii 
of in een I/O-slot is. 

2. Reset de beide pariteitsf lipf lops . 

3. Lees vervolgens iedere RAM-locatie, 
totdat er een NMI optreedt. De laatst 

elezen locatie is dan de locatie met 

e pariteitsfout. De meeste BlOSsen 
wissen het scherm en drukken een bood- 
schap af in de trant: PARITY ERROR AT 
ADDRESS : ?????. Wordt het adres gevon- 
den, dan veranderen de vraagtekens in 
het adres zelf . Blijven de vraagtekrats 
staan, dan betreft het een intermit- 
terende storing. Afhankelijk van het 
BIOS wordt de CPU daama iHUi^i^et 
of wordt de gebruiker 'gmmamgfkdSi^' m 
opnieuw koud gestart moet worden. 

Deze manier van pariteitscontrole 
wordt wel byte-parity-check genoemd: 
bij ieder byte in het geheugen wordt 
een pariteitsbit gegenereerd/gecontro- 
leerd. Ook de 16-bit AT heeft byte- 
parity-check: een geheugenbank is bij 
deze machine dus 18 bit (18 #St8i&ii 
plus twee pariteit bits) breed. 

Zoals altijd met pariteitscontrole is 
Jsmt iysteem niet waterdicht: ais. f r 
t^ee Bits 'oravallen' klopt de parifc#lt 
nog steeds ofschoon de data corrupt is. 
Wel is het zo, dat bij een pariteits- 
fout men er zeker van is dat de data 
fout is. Theoretisch kan met Hamming- 
technieken een geheugen maken dat zicn- 
zelf corrigeert, maar dit levert zoveel 
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overhead op, dat dit nauwelijks wordt 

toegepast . 

De geheugenschaarstt van de laatste 
tijd neeft nog een verjchijnsel met zich 
meegebracht : klonen met ontbrekende 
RAMmetjes. Wat doen de 'heren' klonen- 
bouwers? Op verzoek wordt het moederbord 

femodificeerd, zodanig dat de pariteits- 
lipflops altijd gereset blijven staan. 
Vervolgais 'vergeet' men de RAMmetjes te 
monteren, die net pariteitsbit bewaren. 
Dit bespaart op iedere 9 RAMchips 1 RAM- 
chip. Per rc zijn dat er maximaal 4, 
maar iedere 9e rc heeft op die manier 

gratis RAM 

Hiermee is het gehele moederbord wat 
hardware betreft Jb^SiimteeK* ^ i/d^Wlg 
na. En dat is: ' ! . *-i . 

4.4. De iifMiinryinnp I 

De geheugenindeling van de PC{/Xr) valt 
in twee delen uiteen: de indeling van de 
I/O chirps &a indeling van het 'echte' 
geheiag^. mmt het echte geheugen: 



Adres: 



Bestemming : 



0000:0000 Start van het RAM geheugen. 

0000:FFFF Einde RAM in 64k machine 

1000:FFFF Einde RAM in 128k machine 

3000:FFFF Einde RAM in 256k machine 

9000:FFFF Einde RAM in 640k machine 

A000:0000 Gereserveerd 

(EGA video RAM, bank 0) 
Einde video RAM, 64k EGA 



300:FFFF 
:0000 



BOOO:OFFF 
B000:7FFF 

8800:0000 
8000:8000 

B800:3FFF 
BOOO:FFFF 

BOOO:FFFF 

ammm 

CffldrOOOO 

C800:1FFF 
CAOO:0000 

D000:FFFF 
E000:0000 
EOOO:FFFF 
FOOD: 0000 
F600:0000 
F600:7FFF 
FEOO:0000 
J?E00:1FEF 



Start video RAM monochrome 
Start video HAM Hercules 
Start video RAH EGA, bank 1 

Einde video RAM monochrome 
Einde video RAM Hercules (bank 

0) 

Start video RAM CXJA 
Start video Hercules (bank 



(bank 



1) 

Einde video RAM CGA 
Einde video RAM Hercules 
1) 

Einde video RAM 256k EGA 
Gereserveerd voor extra. BIOS 
ROMs (EGA BIOS) 

rc/XT hard disk controller SGM 
BIOS 

Einde rc/XT hard disk RDM BIOS 
Gereserveerd voor extra BIOS 

ROMs 

Einde extra BIOS RDM gebied 
Gereserveerd voor test ROMs 
Einde test ROMs 
Start BIOS RDM gebied 
BASIC interpreter ROMs 
Einde BASIC interpreter 
Start systeem BIOS RDM 

Eiods mmmnmm/systeea BIOS 



De I/O map ziet er wat ingewikkelder 
uit, voornamelijk omdat de diverse I/D 
chips relatief weinig adressen beslaan. 
I/O tot en met adres OFF bevindt zich 
op het moederbord, daarboven vertoeft 
het in I/O-slots. 

Adres: BesteoBlng: 

000-OOF 8237 DMA controller 

OIO-OIP Niet gebruikt 

020-023 8259 IRQ controller 

024-03F Niet gebruikt 

040-043 8253/8254 timer 

044-05F Niet gebruikt 

060-063 8255 parallel I/O 

064-07F Niet gebruikt 

080-083 DMA pagina register 

084-09F Niet gebruikt 

OAO NMI enable register 

OAl-OEF Niet gebruikt 

OFO-OFF 8087 floating point 0<a?roe, 



* Onboard/of fboardgrens, hangt af van de 
ocmfiguratie. 



100-lEF Niet gebruikt 

1F0-IF7 Hard diskcontroller 

1F8-1FF Niet gebruikt 

200-207 Joystick interface 

208-277 Niet gebruikt 

278-27F Printer poort drie 

280-2F7 Niet gebruikt 

2F8-2FF RS-232 poort twee 

300-3 IF Prototypekaart 

320-377 Niet gebruikt 

378-37F Printer poort twa© 

380-3AF Niet gebruikt 

3B0-3BB Monochrome/Herculim jilaii<a^ 

3BC-3BF Printer poort e«i 

X0-3CF EGA display 

3D0-3DF OGA display 

3E0-3EF Niet gebruikt 

3FG-3F7 Floppy disk controller 

3F8-3FF RS-232 poort een 

Dok hier is de streepjeslijn de grens 
tussen I/O op het moederbord en I/O op 
een adapterkaart . Deze tabel is niet 
con^ileet: er zijn meer adressen gere- 
serveerd, onder andere voor IEEE inter- 
facekaarten en andere schaarse I/D 
spuilen, maar dit zijn de belangrijkste 
adressen . 

Merk .op, , dat de RS-232 poorten 3 en 4 
ontbrekm: officieel bestaat hiervoor 
binnen de rc(/Xr) en rc/AT wereld geen 
standaard (al dan niet gezet door IBM). 
De adressen voor deze poorten varieren 
nogal bij de verschillende kaarten, of- 
schoon zich een pseudo standaard ont- 
wikkelt voor de adressen 03E8-03EF voor 
poort 3 en G2E8-G2EF voor poort 4. 
lets dergelijks treedt op voor de real 
time clock met battery backup: IBM 
heeft voor de rc(/Xr) nooit lets derge- 
lijks gemaakt, dus is er geen standaard 
adres voor. De meeste klokken wonan oi, 
s^aetm 0241. De rc/AT heeft een rea. 
time clock het moederbord. 
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MS-DOS 



alleen nog 
gehad. Om 
hi^sbiiK^iy 



Tot dusver hebben we het 
maar over het moederbord 
echter een complete computer 
heb je echter nog meer nodig: 

- Toetsenbord 

- Scherm 

- OpslagmeditHB 

- Verbindingen met de buitenwereld 

Hier nu blijkt de f lexibiliteit van de 
IBM-rc familie: bijna al deze zaken zijn 
uitgevoerd als insteekkaarten en meestal 
in meer dan 1 uitvoering te leveren, 
zodat iedereen zijn machine aan zijn of 
haar behoeften kan aanpassen. 

Over het toetsenbord valt zoveel te 
vertellen, dat hieraan e&n apart deel 
zal worden besteed. 

Hetzelfde geldt voor het scherm, dat 
bij IBM naar keuze froen/zwart of in 
Kleur kan zijn. Ook hieraan besteden we 
ten heel deel. 

Komen we blj het opslagmedium. Om zin- 
wl met een computer te kunnen werken, 
iCtoet je je werk kunnen opslaan om het 
later wear terug te kunnen halen. Dat 
kan zoals we allemaal wel weten op een 
aantal manieren: 

- Cassetterecorder 

- Floppy disk 

- Harde schijf 

Geloof hst of niet, maar al deze vari- 
anfcee zijn mcfieiyk (geweest). De oer- 
PC, eeoi appsFiu^list vijf slots, bezat 
fiaiieliik alleen een cassette- interface. 
Ma hetTJisteken van de gewenste display 
adapter had qe dan een computer waarmee 
in BASIC (in RDM) geprogrammeerd kon 
worden. Qua mogelijkheden was het appa- 
raat even uitgebreid danwel beperkt als 
de toenmalige PET, ^ple ][ of TRS80. 

Voor kapitaalkrachtigen of diegenen die 
meer eisen stelden, kon je de rc ook 
bestellen met 1 of twee floppy disk 
drives. Dan kwam er een kaartje bij: de 
floppy disk controller, 
draaide je dan rc-DOS 1. 
4e 160 kbyte op een floe 
je meer dan 64 kbyte t 
een RAM-u i tbre id ingskaart in de machine: 
weer een slot minder. In de oer-PC kcan 
je geen harde schijf krijgai: 11^ 
zoiets gewoon niet. 

Om een harde schijf te kunnen gebruiken 
moest men geduld oefenen totdat IBM uit- 
kwam met de volgende generatie machines: 
de PC/XT. Deze apparaten hadden 8 I/O 
slots en konden maximaal 256 kbyte RAM 
op het moederbord bergen. De Winchester 
was dan 10 of 20 Mbyte groot, en een 
PC/XT had altijd maar 1 floppy disk 
drive. Ook de hard disk ccHitroller ted 
weer een slot nodig. 

In den beginne hanteerde IBM een poli- 
tick van 1 I/O functie per adapterkaart : 
zo had ^e een RS-232 kaart met 1 poort, 
een printer kaart met 1 poort en een 
joystick kaart met 1 poort. Samen met je 
floppy disk controller en de altijd 
noodzakelijke display kaart zat je oer- 
dan nokkie-vol. Om dat probleaa te 



In de oer-rc 
G of 1.1 en kon 
y kwijt. Wilde 
dan moest er 



omzeilen had IBM lets nools baiSlEifefcs de 
ej<pansion interface. 

De expansion- interface bestond uit 
twee dingen: een kaartje dat je in de 
PC moest steken en een kast, die pre- 
cies zo uit zag als de rc zelf . De kast 
bevatte een voeding, een 8-tal I/O 
slots en buffers. De tweede kast werd 
met een f latcable met het eerder ge- 
itQende kaartje verbonden. Zo kreeg je 
in totaal 12 vrije I/O slots. 

De klonenbouwers in het Verre Oosten 
pakten de I/O-politiek anders aan: zij 
maakten al vrij spoedig 'multi-I/0 
kaarten', kaarten met verschillende I/O 
functies bij elkaar, al dan niet 
gecombineerd met extra geheugen. Met de 
invoering van de moederborden die 640 
kbyte RAM kionnen bevatten, is de I/O- 
kaart met een stille dood gestorven 
en heeft de multi-I/0 kaart zich 
enigszins gestandaardiseerd op de 
volgende inhoud: 

- Floppy disk controller 

- 2 RS-232 poorten 

- 1 parallel printer poort 

- Joystick interface 

- Real-time-clock met accu of batterij 
Dit alles uiteraard in 1 slot. Samen 
met de display kaart en de hard disk 
controller hou je dan nog vijf jl^^ffiit! 
over in de hedendaagse klpon. , 



4.i i?» tou 

Gaan we de verschillende displaykaarten 
van dichtbij bekijken. Het deel daarop 
scheren we het toetsenbord, en dan 

wordt het toch eens tijd om naar de 
softwarekant van het geheel te gaan 
kijken. En we hebben het nog niet eens 
uitgebreid over de rc/AT genad. Of over 
MS-DOS. Stof genoeg cte.. 
Tot de volgende keer. 



Oproep Proton PC-2 

Ik werd benaderd door lemand die fn het 
bezit is van een Proton PC-2 met 64k RAM. 
Dit persoon heeft problemen met zijn 
systeem waarbij het er op lijkt dat er 
iets niet in orde is met het geheugen op 
paglna 0 (Refresh van dynamische RAM?). 

Wie in het bezit van schema's of andere 
informatie over de PC-2 of anderzijds dit 
persoon kan helpen, wordt verzocht contact 
op te neBien met de iredactie* 

Gert van Opbroek 
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Door Ruud Uphoff/Gert van Opbroek 

De heer Ruud Uphoff , dezelfde die op de 
bijeenkomst in Krimpen in mei 1989 de zeer 
boeiende voordracht over kwaliteit van 
software gehouden heeft, heeft een zeer 
f raai programmapakket voor MS-DOS machines 
aan de KIM Gebruikersclub Nederland ge- 
schonken. In deze aankondlglng worden 
enkele passages uit de documentatie over- 

Lijkt het u wat? Software wordt binnen de 
club tegen kostprijs verspreid. Dit wil 
zeggen dat u voor fl. 7,50 (medium + 



verzendkosten) kunt b«SchlMll«lE ««tt 
floppy met daarop dit p«ii&eti<K a 

U kunt deze fl. 7,50 overmaken op giro 
2591332 t.n.v G. van Opbroek te Woubrugge. 
Vermeldt s.v.p. PC-FIX en als u i.p.v. een 
standaard 5 1/4" 360 kB floppy een 3 1/2" 
720 kB floppy wilt ontvangen, geef dit 
duidelijk .aan* 

Overigens kunt u voor fl. 7,50 bij mij ook 
een floppy met C-Kermit voor MS-DOS 
bestellen. Hlermee kunt u bijvoorbeeld 
communiceren met DOS-6 5 maar ook met het 
bulletin board etc. Deze Kermit besft een 
bijna volledige VT-100 emulatie (132 
tekens per regel ontbreekt). 



P C - F I X 

By Ruud Uphoff 1989 

t$89 KIM GEBRUIKERSCLUB mOEXLtm 
All rights reserved. 
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PC-FIX is een eenvoudige 'gereedschaps- 
kist' voor PC-DOS gebruikers. 'Eenvoudig' 
wil echter niet zeggen dat PC-FIX onder 
zou moeten doen voor zijn commerciele 
soortgenoten zoals de bekende "Norton 
Utilities" of "PC-Tools de Luxe". Het 
eenvoudige zit hem in het onbreken van 
toeters en be lien zoald mooi versielfde 
bee idschermen en vooral in het ontbreken 
van mogelijkheden die we zelden echt nodig 
hebben. PC-FIX is niet sensat ionee 1 . Het 
is op de eerste plaats brulkbaar. Onzlnnig 
ftpeelfoc^i 'l^^MiWtW zult U in deze 

toolkit niet vinden. 

De opdrachten die U aan PC-FIX geeft wor- 
den vrijwel allemaal uitgevoerd. Geen 
geneuzel van '|«i#t i het wel zekes ?' 
Alleen daar waar een verglssing in mjm. 
Itlein hoekje zit, wordt aan U gevraag<| oil 
even te bevestigen dat U inderdaad al iSle 
files tegelijk wilt wissen ezv. 

PG-FIX wierkt ^Is los programma of als TSR 
(lEeiiaiMaie ami Stay Resident) pro-gramma. 
In het eerste geval neemt het ruim 80K is 
beslag. Als TSR slechts 20K waardoor het 
zich onderscheidt van zijn commerciele 
broertjes. PC-FIX kost U als lid van de 
oudste conputerelub van NedeclaiLd nlets, 
afgezien van eventuele porto en media 



(diskette) kosten. PC-FIX is aan de vere- 
niging ter beschikking gesteld onder de 
voorwaarden die voor 'inbreng irwa «rtlfee- 
gelden volgens de statuten. 

PC-FIX is getest op een XT en op een XT 
turbo (AT&T) De werking op een "echte" AT 
nog niet zel^r gesteld. Wie ? 

Meet van de iredactie? Onieehatii tieeft m& 
bestuurslid Nico de Vries PC-FIX ook aan 
de tand gevoeld op zijn AT. Ook daar werkt 
PC-FIX prima zodat bezitters van een AT- 
compatible dit pakket zondermeer kunnen 
gehruiken. 

fC-PlX Is wei gratis, maar (ffiit "^public 
domain'. Het is dus niet toegestaan om 
copieen aan vrienden of kennissen te 
schenken. Ook niet aan leden van onze 
vereniging: Hoe en onder welke voorwaarden 
verspreldlng plaats vlndt wordt uitslui- 
tend door het bestuur van de KIM GEBRUI- 
KERSCLUB NEDERLAND bepaald. Aan "bevel 11- 
gingen" of andere flauwekul doen we niet, 
maar we gaan er van uit dat we op uw 
meedewerking In deze wegett rekemen. 

Routines in PC-FlX die blj fotiten "het 
gevaar van data verlies zouden opleveren 
zijn met uiterste zorgvuldigheid tot stand 
gekomen en getest. Bedenk echter dat het 
zeer onwaarschljnlijk is dat een programma 
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van 20K machinetaal en 64K data foutloos 
is. Graag hoor ik dan ook van U welfce 
st'Oreii.'de £oat,eK- mw. #^'«ii:t.a#«I «|ittl|f#tl.f. 
zljn, sodat iii«t -m^t lets aan kan worden 
gedaan* 

VEREISTE SYSTEEMCONflGlRATlE 

PC-FIX is geschreven voor 4e IBM-XT m AT 
of eompatible machines. Het verel«t mini- 
maal PC-DOS (MS-DOS) 3.2. Om de 'IJSX mode 
te kunnen gebruiken moet uw systeem van 
een harde schijf zljn voorzlen. 

WSSmM mSms iC)opy en c(0)mpare 

PG-FIX staat geen single drive opera- 
ties toe als niet tenminste de logische 
drives verschillend zijn. Copleren van 
J^: naar B: op een systeem met slechts 
«»n drive is dus wel mogelijk. Van A: 
BaaY A: kan alleen als source en target 
file verschi 1 lende namen krijgen. Dis- 
kette wisselingen in dezelfde logische 
drive worden door PC-FIX niet onder- 
steumd« De redexi van deze keuze 1$, dat 
alle«tt be«ltteT8 van systemen met twee 
verschil lende drive typen hier proble- 
men mee zouden kunnen hebben (Bv. A: is 
een 5.25" drive en B: een 3.5"). 
Echter: In het algemeen gaat het copi- 
Wm files veel sneller als U ze 
eettt maar een lege directory op de 
iiarde achljf stuurt eici vandaar naar de 
backup schijf. 

FOBHAT commando's en BAD CLUSTEB^ 

PtJ-'flX markeert geen **bad c luittelTt"* 
tydens formatteren. De reden hiervoor 
is dat de auteur van PC-FIX van mening 
is dat de enige juiste verbli jf plaats 
voor een beschadigd schijf je de vuil- 
Blsbak is. PC-FIX kan (gelukklg maar) 
fitit harde schijf fQrmMi&wm* 



NETWORKS 

PC-FIX is niet ontworpen en derhalve 
niet getest op gebrulk blnnen een net- 
werk. Niet doen dus! Overigens kan ik 
mij niet voorstellen dat U thuis een 
netwerk hebt staan, maar je weet maar 
nooit.. 

Hii wmmmm phfix.exe 

PH-FIX geeft toegang tot een fysieke 
drive. PH-FlX heeft nooit gehoord van 
drive A: of drive C:. Dat zijn "logische" 
drives. Fysieke drives hebben alleen een 



nummer. Voor een floppy ("^liiifeireab le me- 
dia") heeft meestal 4e eerste drive het 
ttTittttet 0 d#"t1»i'6d# -I ezv. U kunt maximaal 
vler drives, namelljk 0..3 in uw systeem 
hebben. Harde schijven zijn er maximaal 
twee namelijk 128 en 129. Als U de harde 
schijf in de afdelingen C: en D: hebt 
verdeeld met FDISK, dan zijn er twee 
lo^lache harde schijven, maar u hebt nog 
stteedi^' maar een fysieke harde schijf: 128. 
Een fysieke drive kan ook nooit een RAM- 
disk zijn. Dus heel eenvoudlg: Een fysieke 
drive kunt U ult uw computer si open en aan 
een kennls verkopen. Allerhande begrippen 
zoals clustifjg FAf en files zljn ook al 
volledig onbekend aan PH-FIX. Het 
programma kent alleen maar CYLINDERS, 
HEADS en SECTORS. PH-FIX geeft onvoorwaar- 
delijk toegang tot elke plaats op de 
schijf dus ook tot een deel Tan de latde 
schijf die niet aan PC-DOS maar bijvoor- 
beeld aan UNIX of een ander operating 
system toebehoort. In het byzonder kunt U 
met PH-FIX aan de "partition table" van de 
harde schijf komen. Da«to«t tft tl-FlX een 
"levenegevaarlljk" programma. Het is dan 
ook voornamell jk bedoeld om een harde 
schijf te kunnen "repareren". Het kan 
namelijk gebeuren dat de harde schijf 
plotseling leesfouten geeft. Wordt dan 
geprobeerd de schijf opnieuw met FORMAT te 
formatteren, dan blijken er plotseling 
"BAD CLUSTERS" bij gekomen te zijn. Mees- 
tal is er echter fyslek niet echt lets 
defect. Een of meer sectoren zijn alleen 
maar magnetisch "defect", en eigenlijk zou 
FORMAT dat moet en oplossen.. 

It^m t&'^fi ^e&toi 6l»Metew schrljven Is 
meestal voldoende om hem weer bruikbaar te 
maken. PC-DOS functioneert hier echter 
buitengewoon slecht, omdat iedere schrijf- 
poging bij voorbaat zal mislukken, aangp- 
zleti DOS eetsii-'Mm:'»mM%w 'gie^' m^&il^ m 
dat 1# eep ope rat ie en aangezlen i« 

defecte sector helemaal niet meer bestaat 
gaat dat fout. PH-FIX positloneert echter 
onvoorwaardelijk de arm op de juiste track 
en schrijft onvoorwaardelijk de juiste 
sector. Eigenllj|k niets bljzonders, want 
de ffiPOf '«'aa! de PC hefeft dete faelllteft. 

PH-FlX is ook de enige mogelijkheid om de 
partition sector, als die is vernield weer 
bruikbaar te maken. Heeft U problemen met 
uw harde schijf, waeltt'dim--«^em '««t: 
uw dealer te gaan».. 

Overbodig om op te merken dat de "BAD 
CLUSTERS" die al aanwezig zijn op een 
nle»iwe hard iMtM' liHEr diBf eet 



Temmm. warn WkaM. 



* Toretts vaxi Hanoi 
* 

* Demonstratle-programma recursieve programmering. 

* Dit programma is als lllustratie voor de serie computers bedoeld. 
Het is geschreven in Kernigan and Ritchie C en kan waarschijnlijk 
op een vrij eenvoudige manier ongezet worden naar bijvoorbeeld 



* DOS-65 Small C. 

* Het progranma is gftiiiHeven door: 

* Gert van Oproek op een ibc68000 onder 0S9/68k 

* Datum: 11/06/1989 
* 

* Probleemstelling: 

* Bij mijn weten is het probleem ergens in een klooster in Tibet 

* ontstaan* Het volgende is aan de hand: 

* Men heeft de beschikking over een voetstuk (plankje of zo) waarop 

* een drietal vertikale stangen gemonteerd zijn. Om deze stangen passen 

* schijven. Alle schijven ziJ«::TOCjn^dl£«ad van grootte. Nu is het die 

* bedoeling vanuit de geschetste uitgangspositie met alle schijven om 

* de linker stang, de schijven te verplaatsen naar de rechter stang 

* waarbij men slecbtff een schijf fee loeeir mag verplaatsen en nooit een 

* grotere schijf op een kleinere mag leggen. 

■k 

* Gevraagd: Geef een overzicht van bewegingen zodanlg dat aan de boven- 

* staande voorwaarden voldaan is. 

* In fibvt had men 40 schijven en verplaatste elke dag "s mlddags on 12 

* uur een schijf. Men dacht dat als alle schijven verplaatst waren de 

* wereld zou vergaan. 

* NB. Probeer uw computer niet het probleem van 40 schijven op te laten 

* lossen, hij is gegarandeerd versleten voordat hij hiermee klaar is 

* (als nw systeem tenoinste gebengfin gensssg' b«cft)i' 
* 

* Overigens is het ook een leuke uitdaging dit programma eens in 

% andere taal, bij^ddrlieeld »ssembler te schrijven en boi^wiii^' 

* voor grafische uitvoer te zorgen. De redactie ziet uw oplosslng net 

* belangstelling tegemoet. 
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IE) im ajIF nsi^Ersri^i^ talen/sof™re 
■ ■ 



* UltgiMeigsposltie: 
* 



* 


\#\ 




# 


* 


//#// 




# 




\\\#\\\ 


# 




-* 


////#//// 




# 




\\\\\#\\\\\ 


# 




* 


//////#////// 


. ... # 





*\ 

//Include <stdio.h> /* Standaard I/O definitles */ 

#define void int 

/* 

* De functie verplaats wordt recurslef aangeroepen 

* waarbij N het aantal scMjven is, Van de code voor de pen 

* waarvan de schljven verplaatst moeten worden en Naar de code 

* van de pen waarnaar toe de schijven verplaatst moeten worden. 
* 

* Be hulppen kan men Ibe^fskifiten ^atf $ Vm " Kaxr te nenten. 

* »; • . . i. ... ■ 

* Het rekenschema (algorithme) is* virij simpel: 

* Om N schijven van 1 naar 3 te verplaatsen moet men eerst 

* N-1 schijven van 1 naar 2 verplaatsen, daarna verplaatst men de 

* onderste schijf van 1 naar 3 en verplaatst de lihl schijven van 

* 2 naar 3. Eenvimdig dus. 
*/ 

void verplaats(N»V€ii«Iaa]:} 
int N, Van, Naar; 



if (N — 1) 

prlmtlC'VerplaaCiB 4& li^li^isste s^ijf van pen %d naar pen %d\n", 
, •; J . r, . ,. .•• Van, Naar); 

else ■{ ■ ' ' - 

verplaats(N-l ,Van,6-Van-Naar) ; 

printf ("Verplaats de bovenste schijf van pen %d naar pen %d\n", 

■f 'i.vi'o ( ..jc i; : : ■ ■ . Van, Naar); 

verpl«S^»|»wls&«*V«aw*lllte«fil«««)l.-- ' . ^ 

} 

} 

ffiainO 
{ 

int Aantal_Schijven; 

printfC'Geef s.v.p. het aantal schijven in; "); 
scanf ("%d",&Aantal Schijven); 



50 



IE) Ai IF" im im, Talen/Software 



printf ("\nOplosslng torens van Hanoi voor %d schijven\n\n" , 

Aant al_S chi j ven ) ; 

verplaats(Aantal_Schijven,l ,3) ; 

printf ("\n\n Einde torens van Hanoi \n"); 

} 

Geef s.v.p. het aantal schijven in: 3 
Oplossing torens van Hanoi voor 3 schijven 

Verplaats de bovenste schijf van pen 1 naar pen 3 

Verplaats de bovenste schijf van pen 1 naar pen 2 

Verplaats de bovenste schijf van pen 3 naar pen 2 

Verplaats de bovenste schijf van pen 1 naar pen 3 

Verplaats de bovenste schijf van pen 2 naar pen 1 

Verplaats de bovenste schijf van pen 2 naar pen 3 

Verplaats de bovenste schijf van pen 1 naar pen 3 

Einde torens van Hanoi 



Bugs in D0S65 Pascal 



De volgende bugs zijn mij bekend in DOS65 Pascal: 

- De "<" operator werkt niet correct (alleen voor standaard 6502; 65C02 versie 
is wel in orde). Deze fout kan provisorisch verholpen worden door in de .mac 
file alle instructies 

Ida 0 
te vervangen door 
Ida #0 

- Door een (te) strenge type controle is bijv. type "set of char" niet 
toegestaan. 

- De' standaard procedure dispose werkt niet. 

- De evaluatie van de actual parameters van een functie kan verkeerd gaan* 

- Het eerste karakter van een ascii file kan worden overgeslagen. 

- Bij output redirect komen er overbodige linefeeds in de file te staan. 

Het schijnt voor te komen dat het compileren van file. pas lukt met 
"pa file. pas". Voor alle duidelijkheid: dit is niet de bedoeling, het zou 
zelfs niet mogen werken. Het juiste commando is: "pa file"; hiermee wordt dan 
file. pas gecompileerd. 

Indien iemand nog meer aan- of opmerkingen op de DOS65 Pascal compiler heeft, 
zou ik die graag (bijv. via een message in area 1) horen. 

Pieter de.Visser 



51 



TECHNITRON TLP-12 LASER PRINTER 

- UHEEFTEIGENUJKGEENANDEREKEUZE! 




■ 12 pagina's per minuut (max.) 

■ tot 10.000 afdrukken per maand 

■ 8 ingebouwde lettertypes; 
32 afdruk-combinaties 

■ unieke "FontMaker" service 



■ unieke "FormsMaker", 
formulier- en logo sen/ice 

■ 3 ingebouwde hardware- 
emulaties 

■ flexibele in- en uitvoer van papier 



Technitron 
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